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Primeros pasos 

Una de/as cosas que todo programador debe 
preveer es centre/or fades aquel/os errores que, 
paradd/icamente, escapen a su control a la hera de 
realizar el programa, par eiemplo, que el usuario 
indique un nombre de fichero que no esf6 en el 
disco, o que est /leno, etc. 

Patas arriba 

En este ndmero 51, que conmemora nuestro primer 
aniversorio, nuestra revista hermana, 
MICROMANIA, nos ha hecho un regale; nada 
menos que un complete <<Paras arriba de uno de los 
iuegos m6s rameses para Amstrad; el Alien B, de 
Ultimate. Para que los amantes de los juegos sepan 
que poseen un lugar importantes en AMSTRAD 
SEMANAL. 

Exp/icamos, punto par punto, coma mane/or la 
panfa/la de alto reso/uci5n desde m6quina, 
mostrando los equivalentes de los comandos Basic 
DRAW, PLOT y arras. 

ProgramAcci6n _ , ', 

En /engua/e mdquina se pueden hater muchas rods 
cosas desde Basic, o son imposib/es, o muy cosfosas 
de rea/izar en t6rminos de tiempo y esfuerzo. Una 
de el/as es /a inversi6n vertical y horizontal de 
panta//as, a toda marcha. 

F/S/ON es un /uego, para dos personas, que imita 
Io que ocurre durante una reacc/6n nuclear. 
Indudablemente, una descripci6n ross proli/a 
serviria para anular el placer de/a sorpresa que este 
programa va a produciros, cuando /ugu6is con L 
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OFERTA ESPECIAL I ANIVERSARIO 

6 meses 

Suscribete ahora a Microhobby Amstrad, o realiza tu 
renovaci6n, y recibir6s, totalmente gratis, un regalo de 
excepci6n: una suscripci6n a Amstrad Casselte pot 
seis meses. 
Cada cinta contiene los programas publicados pot 
Microhobby Amstrad durante un rues. 
Todos los programas de nuestras cintas se 
encuentran desprotegidos, con el obieto de 
facilitar su copia en disco y la revisi6n de los 
listados. 

t 
 • . 
. #o • #° #t 

En cada cinta encontrar6s: .Lo ,eo %'" 
-- Apasionante, juegos 'lenos de aco6n y dinomismo. '.¢O' ,.T<..,,¢ ' 
-- Utilidades con los que sacar mayor pafldo a tu ordenador 
-- Ruhnas en c6digo m6quina, para que las utilices en tus propios programas '0 ,-   
-- Y pequefios tcos de programaci6n, para que, poco a poco, te conv,eas en un expedo o .   



Hemos superado los $0 nfmeros. El primer aniversario de AMSTItAD 
SEMANAI. ya es una realidad. 
Resulta un tanto extrao, acostumbrados a hablar de informdtica, 
bytes y lenguajes, expresar a travs del papel Io que esto significa para 
nosotros. Representa que, a Io largo de .0 semtnt$, la primera y dni- 
ca revista semanal que se ocupa de los ordenadores Amstrt# ha reci- 
bido un constante jaleo y apoyo en su labor par parte de miles de per- 
sonas, de todos aquellos que, asidua u ocasionalmente, nos leen. 
Sentimos de forma continua y profunda esa multitudinaria presen- 
cia, a la vez que la inmensa responsabilidad que ella depasita sabre 
nuestros hombros. Una dulce carga que nos impulsa a mantener una 
cada vez mds clara IFnea ascendente en cuanto a veracidad, interns en 
la informaci6n y cafidad de edici6n. 
Las claves de nuestra revista siempre ban sido una mdxima actuali- 
dad y un tratar de mantener un canstante y directo contacto con todas 
nuestros lectores, porque creemos, sabemos, que s61o de esta manera 
un semanaria cobra sentido, manteniendo la agilidad y el interns que 
caracterizan a AMSTItAD SEMANAI.. 
Sentimos, pues, que se ha alcanzado un meta, que marca el fin de 
una etapa y el nacimiento de otra, de renovaci6n y ¢¢aire fresco, sin 
perder par ella un dpice de Io que hasta ahora ha constituido las Ifneas 
maestras de nuestra revista. Toda la redacci6n, en plena, ha contribui- 
do en esta editorial, y a todos nos gustarfa acabarla de la misma farina 
que la hemas empezado. 
Hemos superado los 50 ndmeros. Gracias a todas. 

DIRECTOR DE AMSTRAD SEMANAL 
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As1 SE GESTIONAN 
LOS ERRORE$ 

En alguna ocasi6n, al escribir un programa se nos 
ha escapado el dedo y hemos pulsado la tecla que 
no deb{amos: cometemos un error. 

j uiza nos hemos dado 
cuenta al momento y Io corregimos antes de 
pulsar el RI:TURN que mete la linea en me- 
moria. La cosa no tiene mayores consecuen- 
cias. Pero un gran nOmero de veces no adver- 
timos estos errores hasta que se est6 ejecutan- 
do el programa y el Am.:trad, que no paso 
ni una, saca en la pantalla un mensaje y nos 
advierte del fallo: 
Syntax error in... 
y a continuaci6n nos presenta Ja Iinea equi- 
vocada para que la corrijamos adecuadamen- 
te. 
Pero este tipo de errores no son los 0nicos 
que podemos cometer, tal como nos los mos- 
trar6 el Programa 1. 

Programa uno 

Si le ((cargam0s)) en el ordenador y a 
continuaci6n Io ejecutamos tecleando 
y pulsando (RETURN)), que ocurrir6 . 
El programa nos va a pedir un par de da- 
tos num6ricos, que se utilizar6n como dlvi- 
dendo) y (divisor). Despu6s calcula el co- 
ciente de la divisi6n y nos visualiza la panta- 
Ila. Hasta aqui no observamos nada extrao. 
Ahora ejecutemos de nuevo el Programa, 
pero con unos datos un poco especiales. El di- 
videndo ser6 un nOmero cualquiera mientras 
que como divisor vamos a elegir un cero. Qu6 
conseguimos con ello? 

6 'c^OHOSBr AMSTRAD 

Siempre nos ban enseado en Matem6ticas 
que al dividir un n0mero por cero obtenemos 
un valor tan grande como nosotros queramos 
al que Ilamamos Jfiitg. Pero, qu6 es 
<infinito? 
De momento sabemos que es una cifra enor- 
me, pero no podemos determinar cu61 es. Pot 
eso la Ilamamos infinito y basra, hemos cum- 
plido. 
Pero aJ Amstrad no podemos decirle que 
una variable contiene un valor indetermina- 
do (<¢infinito, por ejemplo), sino que debemos 
concretar. Y ross bien el que Io hace es el pro- 
pio ordenador: toma el n0mero m6s grande 
que puede manejar dependiendo de sus ca- 
racteristicas internas. 
Si quiere conocer cu61 es, volvamos a eje- 
cutar el Programa 1 con los datos especia- 
les, tal como diiimos anteriormente. AI pul- 
sar RETURN nos aparece en la pantalla un 
mensaje: 
Division by zero 
Qu6 ha ocurrido? 
encillamente Io que se acaba de visualizar 
en nuestro monitor: hemos intentado efectuar 
una divisi6n en la que el divisor es cero. El Ba- 
sic se da cuenta de ello, ve que el resultado 
es un n0mero que no puede tratar correcta- 
mente y nos informa de ello, ya que la situa- 
ci6n es an6mala o err6nea. 
Y el programa contin0a ejecut6ndose. Prue- 
ba de eHo es que se imprime el valor del co- 
ciente resultante de la divisi6n. Mejor dicho, 
el programa escribe ese vabr m6ximo que el 
Amstra toma como techo de c61culo. 
Ya conocemos cul es: 
1.70141E+38 
es decir, 1 segundo de 38 ceros, que resulta 
para todos nosotros una cantidad grandisima 
e inimaginable. 
Viendo esto puede surgir una pregunta: 
qui6n se ha encargado de interrumpir la eje- 
cuci6n del programa para visualizar el men- 
saje y despus continuar por donde nos ha- 
b/amos detenido? 
El Basic del Amstrad posee un sistema que 
una vez se ha detectado un error, de la clase 
que sea, genera un mensaje que nos informa 
del tipo del que se trata. Es el gestor de erro- 
res. 



18 REM PROGRAMA I 
28 CLS 
38 INPLFF'DIVIDENDO: ',dividendo 
48 INPUT'DIVISOR: ',divisor 
58 cociente=dvidendo/divisor 
68 PRINT 
7@ PRR 'EL COCIENTE ES';cociente 

En el Manual del Usuorio de su ordenodor 
existe un capitulo donde aparece una lista 
completa con todos los errores que puede fro- 
tar, el nOmero asociado a coda uno de elias, 
asi coma el mensaje correspondiente y una 
breve explicaci6n de la causa que Io ha pro- 
clucido. Echele una ojeada, ver6 que este error 
es el nOmero 11 y an6telo para posteriores 
ocasiones. 
Este ((gestor es el que tambi6n hace apa- 
recer el aviso de ((error sint(ctico cuando 
nos equivocamos al escribir una coma, un pa- 
r6ntesis o cualquier afro simbolo. Y Io mismo 
ocurre con el resto de los folios que el Ares- 
trod puede detector. 
Volvamos al Programa 1. Recordemos que 
a pesar de que se habia producido una cir- 
cunstancia an6mala, la ejecuci6n del Progra- 
ma continu6 arrastrando un resultado que no 
era cierto, iHabr6 que arreglar este proble- 
ma! ,no? 
Ser6 necesario que nosotros mismos trate- 
mos el error que se ha produciclo hacienda 
que, en este caso, nos vuelva a pedir un nue- 
vo clivisor que sea distinto de cero. Y esto es 
Io que hacemos con el Programa 2. Escribalo 
y observe deteniclamente los modificaciones 
que se han introduciclo. 

Programa dos 

Sigamos el mismo proceso que con el ante- 
rior. La primera vez teclearemos el dividendo 
y el clivisor con valores distintos de cero y el 
resultado obtenido ser el mismo. Sin embar- 
go, cuando asignamos al divisor el ngmero ce- 
ro, se producen unas consecuencias notable- 
mente cliferentes. 
Con el Programo 1 se desviaba la ejecuci6n 
clel mismo en la linea 50 y aparecia en la pan- 
talla el mensaje standard, propio clel sistema, 
correspondiente a: 
Division by zero 
Ahora, con la soluci6n que hemos propues- 
to, ya no vemos el mensaje anterior sino uno 
que podemos entender perfectamente en cas- 
tellano. Y adem6s no se corta la ejecuci6n 
programa, continOa permiti6ndonos inlrodu- 
cir un valor correcto a la variable 
y proseguir asi, indefinidamente. Por qu6 esta 
diferencia de comportamiento? 

,Se acuerda de todo Io que hemos dicho so- 
bre el ((gest0r)) de errores? Bueno, pues 
anOlelo para el Programa II. El Basic del Ares. 
trod permite al programador gestionar a su 
gusto, o bien en funci6n de sus necesidades, 
los errores que pudieran aparecer en la eje- 
cuci6n de un programa. 
Para que esto sea asi, y no como en los ca- 
sos habituales, debemos decirle al ordenador 
que vamos a ser nosotros mismos quienes tra- 
temos correctamente los fallos detectados y 
que por tanto, cuando encontramos uno, el 
<(gestor del Basic se inhibo y no act0e. Pero, 
c6mo conseguirlo. 
Observe atentamente la Iinea 20 de este Ol- 
timo programa: 

20 ON ERROR GOTO 110 

Con esta instrucci6n le estamos indicando al 
ordenador queen el caso que aparezca un 
error en la ejecuci6n, bien sint6ctico o de cual- 
quier otro tipo, en lugar de ceder el control 
a la porte de la memoria ROM (la que dirige 
el micro), Io que debe hacer es dar un salto 
y continuar por la linea incada, que en nues- 
tro caso es la 110. 
A partir de alli tomaremos nosotros los ac- 
ciones oportunas para tratar el error de acuer- 
do con nuestras necesidades dependiendo del 
tipo que sea el producido. 
Una vez ejecutados las lineos 110 a 140, el 
programa se encamina de nuevo a la 50, de- 
bido al GOTO de la 150, y aparecer otra vez 
en la pantalla un mensaje pidi6ndonos un va- 
lor correcto para (divisor>. 
Si tecleamos ahora cualquier valor distinto 
de cero el ordenador actuar6 de la manera 
habitual, calculando el resultado de la ope- 
raci6n e imprimir6 el valor encontrado. 
As{ pues, parece que ya hemos descubierto 
la manera de conseguir nuestro objetivo. Se 
ha producido una divisi6n por cero, al dar a 
la variable ((divior dicho valor, y el pro- 
grama Io ha tratado convenientemente tal y 
como nosotros Io planeamos. Con esto bos- 
Nada m6s lejos de la realidad. Si no, vol- 
vamos a comenzar a trabajar con el Progra- 
ma 2. EjecC.telo de nuevo y cuando el orde- 
nador le pida los valores de ((dividendo y (di- 
visor dele dos n0meros distintos de cero pa- 
ra que no se produzca un error detectable. 
Despu6s vuelva a ejecutarlo asignondo, o 
tecleando, ahora un cero al divisor. Inmedio- 
tamente, cuando et programa Ilegue a la l{- 
nea 60, se detecta el error y salta a la 110, 
donde comienza la rutina de tratamiento del 
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mismo. Y nos aparece en la pantalla el men- 
saje en castellano que nos informa de la situa- 
ci6n que se ha producido volviendo a pedir- 
senos que tecleemos un valor distinto de ce- 
ro. 
Pues obedezcamos. Se visualizar6 el resul- 
tado de la operaci6n correctamente y volve- 
mos a iniciar el ciclo debido a que el GOTO 
de la Iinea 100 nos envia otra vez, con un 
salto atr6s, a la 30. 
Compliquemos las cosas. D6 ahora al divi- 
dendo cualquier valor y al divisor de nuevo 
un cero. Y el Amstrad nos sorprende una vez 
m6s. En lugar de repetir el tratamiento de 
error tal como habiamos pensado, resulta que 
nos aparece en la pantalla el ya conocido 
mensaje asociado al error 11. Recuerda? 
Division by zero in 60 
Por qu6 ha sucedido esto, si tenemos nues- 
tro particular gestor de errores? La primera 
vez que dimos a <<divisor> el valor 0 no ocu- 
rri6 as/, puesto que nos apareci6 el aviso> en 
castellano y, sin embargo, ahora la respues- 
ta que nos da el ordenador no es la misma. 
Qu6 ha cambiado de una a otra? 
La explicaci6n es bastante sencilta. Dentro 
de las instrucciones que forman parte de la ru- 
tina de tratamiento de error tambi6n puede 
producirse alguno yen este caso el que Io trata 
no es el gestor que nosotros hemos creado a 
medida sino el general que va incorporado el 
Basic. 
Parece que con la linea 150 se termina la 
gesti6n del error, ya que volvemos al progra- 
ma principal. Pues bien, esto no es asi. Den- 
tro de esta rutina, sobre todo si es muy com- 
pleja, pueden existir sentencias GOTO que nos 
manden de un lado a otro dentro de la mis- 
ma. Luego, cuando el ordenador se encuen- 
tra con una, no entiende que con ella se ter- 
mine el tratamiento de error sino que interpre- 
ta que tiene que dar un salto dentro de las ins- 
trucciones que los gestionan. 
Vemos con esto que se nos ha creado la ne- 
cesidad de una sentencia que consiga que la 
ejecuci6n del programa abandone la rutina de 
tratamiento de error y vuelva de verdad al 
programa principal, gC6mo superar este es- 
tado? 
El Basic del Amstrad tiene una orden, se- 
mejante al GOTO, pero que a la vez le indica 
Io que nosotros and6bamos buscando. Se trata 
de RESUME. Para ver su funcionamiento mo- 
difique el Programa 2 cambiando la siguien- 
te linea: 
150 RESUME 50 
Ya Io he hecho. A continuaci6n repita la 
misma secuencia de acciones que ya habiamos 
seguido con el programa antes de la modifi- 
caci6n. Algo ha cambiado ya que ahora siem- 
pre somos nosotros, o nuestro gestor particu- 
lar, los que tratamos el error convenientemen- 
re. 
Cada vez que demos a <<divisor el valor ce- 
ro, la ejecuci6n sattar6 a la linea 11 O, que es, 
COHOBr AlflSTIIA D 

como sabemos, donde comienza la rutina que 
acutar6 en caso de fallo. A partir de ahi se ir6n 
realizando instrucciones hasta que Ileguemos 
a la linea 150 que nos mandar6 de nuevo al 
programa principal, para que nos pida un va- 
lor correcto para divisor. 
Pero en esta ocasi6n si queda constancia de 
que se ha abandonado el gestor de errores 
como Io indica RESUME, de modo que si el di- 
visor se vuelve a hacer cero, la ejecuci6n del 
programa saltar6 otra vez a la rutina que trate 
esta situaci6n no permitiendo que entre el pro- 
pio del ordenador. 
La instrucci6n: 
RESUME dinea>> 
hace que el programa salte a la linea cuyo nO- 
mero est6 indicado por <linea>> (tal como Io ha- 
te tambin GOTO), pero a la vez indica al Ba- 
sic que estamos saliendo de una zona encar- 
gada del tratamiento particular y a medida de 
nuestras necesidades de un error que haya de- 
tectado el ordenador y se retorna al progra- 
ma principal. 
Pero no nos conformamos con esto. Vamos 
a analizar un poco m6s a rondo las posibili- 
dades que nos ofrece la instrucci6n RESUME. 
Para ello modifique de nuevo la linea 150 del 
Programa 2 elimando el nOmero de linea a la 
que hay que volver. Quedaria de la siguiente 
forma: 
150 RESUME 
Probemos el programa que resulta despu6s 
de este cambio. Si se da a la variable <divi- 
sor valores distintos de cero, al no pasar por 
la rutina de gesti6n de errores, no se detecta 
nada anormal. Tecleemos un cero para esta 
variable a ver qu pasa. 
La ejecuci6n salta como en los casos ante- 
riores, a la parte del programa que trata el 
error cuando ste es detectado. La linea 150 
vuelve control al programa principal pero co- 
mo en esta ocasi6n no le indicamos la linea 
a la que debe volver, Io hace a la misma en 
la que se detect6 el error, es decir, a la 60. 

Ig REM PROGRAMA II 
28  ERROR GOro 118 
38 CLS 
48 INPL[T'DIVIDEhlDO: °diuidendo 
58 INPUT*DIVISOR: ',diuisor 
68 coc i en te=di v i dendo/d i v i sor 
78 PRINT 
88 PRINT 'EL COCIENTE ES°;cociente 
98 FOR retardo=8 ro 38@8:NEXT retar 
do 
I@8 GOTO 38 
118 REM TRATAMIENTO DE ERROR 
128 PRINT 
38 PR]NT'EL D]V]SOR ES CERO, Y ESO 
NO ES VALIDO, TECLEELO DE NUEVO' 
148 PRINT 
158 GOTO 58 



Pero los condiciones que Io produjeron no 
han cambiado. La variable <divisor, sigue con- 
teniendo el valor cero y por tanto el fallo per- 
siste y volveremos a saltar de nuevo al gestor 
particular. Asi nos estar6 sacando el mismo 
mensaje indefinidamente hasto que pulsemos 
dos veces la tecla ESC, claro. 
Asi pues, ((RI:$UMIb sin especificar nOme- 
ro de linea devuelve el control de ejecuci6n 
a la misma linea donde se produjo o detect6 
el error. Comprendido? 
Volvamos a hacer un cambio en la linea 150. 
En esta ocusi6n se convertir6 en: 
150 RESUME NEXT 
Repitamos la prueba del programa con los 
valores que produzcan el error, o sea, asig- 
nando al divisor un cero. Si observamos de- 
tenidamente Io que aparece en la pantalla po- 
dremos deducir con un poco de paciencia Io 
que est6 sucediendo. 
Despus de introducir los valores de los ope- 
rondos de la divisi6n mediante las instruccio- 
nes INPUT, el Am,:trad detecta el error 
producido en la linea 60 y salta a la 110 para 
tratarlo oportunamente, con Io que se visua- 
lizar6 el mensaje adecuado incluido en la ru- 
tina de gesti6n de error. 
A continuaci6n Ilegamos a la linea donde se 
ha producido el cambio yen esta ocasi6n no 
ocurre como en el primer caso, con R£$U- 
ME 40, en el que se nos volvia a pedir el va- 
lor del divisor, no como en el segundo en el 
que con s61o RESUME, sin nOmero de linea, 
nos encontr6bamos de nuevo con la del error. 
Ahora la ejecuci6n regresar al programa 
principal pero a la linea siguienle a la que cauo 
s6 el error. Por Io tanto el Amstrad bar6 la 
linea 70 sin ejecutar la del error y, como a la 
variable <cociente, no la hemos asignado nin- 
gOn valor, aparecer6 en la pantalla un cero. 
Si continuamos dando nOmeros, cuando 
sean correctos, el resultado que se imprime 
tambin Io ser6. Sin embargo, si Cdivisor con- 
tiene un cero, el valor del <cociente que se 
visualice no es el bueno ya que la operaci6n 
no Ilega a realizarse y por tanto la variable 
contiene la cantidad que tuviera almacenada 
de la anterior pasada con datos correctos. 
Es evidente queen nuestro caso la versi6n 
del programa que utilizariamos seria la que 
emplea RESUME con nOmero de linea de re- 
torno, o bien seria necesario reformar la ruti- 
na de tratamiento de error para poder em- 
plear RESUME o RESUME NEXT. Si hemos vis- 
to otras posibles soluciones ha sido Onicamente 
con car6cter did6ctico para poder ver en fun- 
cionamiento de un modo sencillo cada una de 
estas variaciones de la orden RESUME. 
Es posible que todavia ande de vacaciones, 
o quiz acabe de regresar de elias, iBienve - 
nido!, si asi es. Quizg haya hecho un (mg- 
t de kil6metros en su propio coche y sus 
visitas alas gasolineras habr6n sido bastan- 
tes frecuentes no? 
Bueno, pues [e proponemos ahora que ana- 
lice un programa con el que le ser posible 

comprobar si su coche est6 fuera de punto al 
detectar que su consumo ha sido muy eleva- 
do y se han ido ms perras de la cuenta o 
si por el contrario si su autom6vil consume me- 
nos que un mechero y ha sido una inversi6n 
muy rentable. Estamos, ya en serio, ante el 
Programa 3. 

Programa tres 

En 1 se nos van a pedir tres datos: la canti- 
dad de dinero que nos hemos gastado en la 
gasolinera, el precio del litro de gasolina y el 
nOmero de kil6metros que hemos recorrido en 
nuestro viaje luristico. 

18 REM PROGP, PiA I I ] 
28 Ot ERROR GOTO 160 
38 CLS 
4g INPUT 'IMPORTE TOTAL? ',ipore 
5@ INPLIT 'PRECIO LITRO DE GASOLINA? 
' ,prec i o 
68 1 i tros= ipor te/prec i o 
7@ PRINT 
8@ PRINT'EL NERO DE LITROS ES';]i 
tros 
98 PRINT 
I0@  ERROR GOTO @ 
If@ INPUT 'KILETROS RECORRIDOSO ' 
kiloetros 
12B consuro=l i tros*I gg/k i loetros 
13@ PRINT 
148 PRINT'EL COtSLIHO MEDIO  SIDO 
DE' ;consumo;'LITROS' 
168 R RUT] DE TTIENTO DE ER 
ROR 
17@ PRINT 
]88 PRINT'OJALA EL PRECIO DE LA 
OLINA FUERA ******** CERO PT 
198 PRINT 
288 RESI.E 58 

La primero parte del programa se va a en- 
cargar de calcular la cantidad de litros que he- 
mos echado en el dep6sito de nuestro coche 
y que depende, claro, del precio del litro de 
gasolina. La segunda tiene la misi6n de con- 
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firmarnos, o m6s bien de informarnos, si nues- 
tros sospechas de que consumiamos un buen 
((chorro de gasolina cada vez que pis6bamos 
el acelerador, eron acertadas. 
Veamos su funcionamiento sobre la marcha. 
Respondamos a los tres preguntas con los si- 
guientes datos vlidos: 2000, 90 y 240 respec- 
tivamente. El programa correr6 sin detener- 
se y, al no detectarse ning0n error, Ilegar a 
su final imprimiendo los resultados obtenidos 
partiendo de los valores que hemos introdu- 
cido. 
Pero este no es el caso que nos interesa, di- 
d6cticamente hablando. Estamos viendo diver- 
sas formas de tratar de un error asi que, isi - 
gamos con elias! Ejecute de nuevo el progra- 
ma pero ahora dele al ordenador un dato que 
no sea del todo correcto, por ejemplo que la 
gasolina sea ((gratis. (valga cero pesetas pot 
litro) y sin embargo hayamos tenido que pa- 
gar al gasolinero una delerminada cantidad. 
En la linea 60 se va a producir un error ya 
que intentamos hacer una divisi6n por cero (re- 
cuerde que hemos quedado que la variable 
((precio iba a contener un cero). Debido a 
la instrucci6n contenida en la linea 20, al en- 
contrar el error la ejecuci6n del programa sal- 
taria a la 160, lugar donde comienza el tra- 
tamiento del mismo. 
20 ON ERROR GOTO 160 
nos est6 indicando que cuando se produzca 
un fallo en alguna linea del programa, por la 
causa que sea, la gesti6n del error no Io ha- 
ga el Basic, sino la rutina que comienza en la 
linea cuyo n0mero figura al final de esta ins- 
trucci6n. 
En la pantalla nos aparecer6, entonces, un 
mensaje en castellano indic6ndonos que hay 
algo que no es correcto: el precio del litro de 
gasolina. Adem6s el programa nos vuelve a 
pedir otro valor para el precio del litro ya que 
vamos otra vez al principal mediante el: 
RESUME 50 
de la linea 200 para continuar solicitndonos 
los kil6metros recorridos y, si es valida la can- 
tidad tecleada, terminar con la exposici6n de 
los resultados obtenidos. 
Asi pues el programa est6 preparado para 
corregir el dato si nos hemos equivocado al 
teclear un 0 en lugar del que corresponda al 
precio de litro de gasolina. Pero pensemos otra 
cosa. Qu6 ocurrir6 si tambi6n por descuido 
le decimos al ordenador que no hemos reco- 
rrido ning0n kil6metro? Cu61 seria el efecto 
conseguido al introducir un cero cuando el 
Amstrad nos pregunte pot ellos en la linea 
1107 Pong6monos en esta situaci6n. 
El progroma se ejecuta normalmente hasta 
la linea 120. Pero al Ilegar aqui nos encontra- 
mos con que se produce un error: estamos in- 
tentando hacer una divisi6n pot cero, pero es- 
ta vez en dicha linea al querer calcular el con- 
sumo suponiendo que hemos recorrido (¢e- 
ro kil6metros). 

Qu6 ocurrir6 ahora? Quedamos que la ru- 
tina de tratamiento de errores comienza a par- 
tir de la linea 160, que est6 hecha a nuestra 
medida y a la que pensamos que Ilegar6 la 
ejecuci6n cada vez que encuentre un folio. 
Pero esta vez no es asi. El programa se de- 
tiene y aparece el mensaje standard corres- 
pondiente al error tipo 11. 
Division by zero 
Cu61 es su defecto? Viendo los resultados 
obtenidos no tendr6 muchos problemas en de- 
ducirlo usted mismo. Esta instrucci6n inhibe el 
posible tratamiento que hubi6ramos prepara- 
do para los ocasiones en las que se produzca 
un error y activa de nuevo el mecanismo que 
el Amstrad ya tenia preparado para cum- 
plir con tales fines. 
En el Programa 3, si se produce un error an- 
tes de la linea 100, ser6 nuestro propio ges- 
tor el que se ocupe de solucionarlo, pero una 
vez que la ejecuci6n haya pasado por esta li- 
nea es el propio ordenador el que se encar- 
ga de ello dependiendo del tipo de error de- 
tectado. 
Ahora bien, generalmente en un programa 
de cierta complejidad no siempre se sabe, a 
priori, el tipo de fallo que se va a producir ni 
la linea de programa donde ocurrir6. 
No se preocupe, el Amstrad Io tiene to- 
do controlado. Posee unas palabras clave que 
nos dar6n informaci6n en todo momento de 
estas cuestiones. Pero eso Io dejamos ya pa- 
ra una pr6xima ocasi6n. De momento nos que- 
damos saboreando, o recordando, las vaca- 
ciones en compaffaia del Programa 4 que nos 
servir6 de introducci6n de estos nuevos con- 
ceptos. Intente ver su funcionamiento. 

Programa cuatro 

18 REtl PROGRAMA IV 
28  ERROR GOTO 28 
38 CLS 
48 INPUT'OIV]DDO: ',divJdendo 
58 INPUT'DIVISOR: ',divisor 
68 cociente:diudendo/divisor 
78 PRINT 
88 PRINT 'EL COCIE'hrIE ES;cociente 

g8 PRINT 
188 GOTO 1888 
118 ED 
128 RE RUI'IN DE TTIEh'TO DE ER 
ROR 
38 PRINT 
148 PRINT'ERROR NERO:';ERR;'EN LA 
LINEA';ERL 
i8 RESUI'IE NEXT 

EN $ONIMAG 
NUEVO$ 
PRODUCTO$ 
AMSTRAD 

Mil quinientos me- 
tros cuadrados ocupar6 el Stand de 
Sonimag en el que Amstrad Espaa 
(Grupo Indescomp) presentar6 sus 
01timas novedades de cara a la cam° 
papa de ventas del Oltimo trimestre 
de 1986. 
Dentro de la linea informtica en 
la que Amstrad es lider indiscutible 
de ventas, dos nuevos equipos, cu- 
ya aparici6n se aguarda con aut6n- 
tica expectaci6n, vienen a completar 
la gama actualmente ofrecida por la 
firma britnica. De un lado, el nue- 
vo Sinclair Spectrum +2, diseado 
b6sicamente como ordenador de 
video-juegos e introducci6n a la in- 
form6tica personal. De otro, el Ams- 
trad PC compatible en diversas con- 
figuraciones, que se perfila, por pre- 
cio y prestaciones, como de aut6nti- 
co impacto. 
Adem6s, Amstrad Espaa presen- 
tar6 por vez primera en nuestro pais 
los equipos de alta fidelidad y video 
de esta marca. Se trata de modelos 
con y sin disco compacto, que siguen 
la filosfia de Amstrad en cuanto a la 
calidad y precio se refieren. Ejemplo 
de ello es el modelo ms econ6mico, 
dotado de plato giradiscos, sintoni- 
zador AM/FM, ecualizador, dos cas- 
settes y altoveces, todo por un pre- 
cio inferior a las 30.000 pesetas. 
El Sal6n Internacional de la Imo- 
gen, el Sonido y la Electr6nica, SO- 
NIMAG, se celebrar6 en Barcelona 
del 15 al 21 de septiembre. 
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tiemp,,., la gestid gloal e su em,resa. ' 
Este paquete incorpora los programas de CONTABILIDAD, FATURACION y 
CONTROL DE STOCKS adems de un programa de CONTROL DE PEDIDOS y todo 
de [orma interactiva. Contcle su empresa ,r ,61o 29.900 pts. 
• " ,, [C 

Contabilidad 

Contabilidad de f#dl manejo y 
de gran potencia que permite 
trabajar con cuentas de basra 
cuatro niveles, con capacidad 
seg6n diskette de 500/1. 
cuentas y de ZO00/IO.O00 
asientos. 
Permite modificar o dar de baja 
apuntes ya integrados en el 
Ma,vor, programaciones de 
cierres, ficheros de 
Contabilidad ,v Cuenta de 

Facturaci6n 

Programa de gran agilidad y 
rapidez que incorpora el 
Control de Cfientes, con gran 
capacidad de datos, Articulos, 
Albaranes, Facturas y recibos. 
Generaci6n automtica y 
manual de documentos, 
valoraci6n, a voluntad de los 
albaranes, todo tipo de listado, 
induido el del IVA de las 

Cran capacidad de datos, le 
permitir#n a Vd. //evar con 
daridad y senci/lez el control 
de su stock. 
El programa le permite Ilevar 
un /ibro de entradas/sa/idas, 
reoranizarlo, hacer listados de 
StocKs..., le avisar# de los I/mites 
de stocks, minimo y m#ximo 
por art/cu/o, etc... 
,,,m,, ,_T°°cPa'ra la Ilevanza de su 
14.900 ptas. 

Explotaci6n, ejecuci6n de facturas emitidas para /a 
balances comparativos, declaraci6n de Hacienda, etc... 
reenlazndolos por meses, 
c/ave acceso restringido, etc... 
15.500 ptas. 
19.900 ptas. 
Aslmtsmo,,Contabd,daa d,spon,ble para 
Co dicio, seciles para distribuidores 



Oueremos festejar este primer cumpleafios de MICROHOBBY AMSTRAD 
con un regalo un tanto peculiar para todos sus lectores. Y hemos creldo 
que el mejor de los obsequnos seria un especial Patas Arriba, sobre 
uno de los juegos legendarios en la historia del ordenador personal: 

ALIEN-8. 

Aqu/ est6 p.or tanto nuestro regalo con pokes y demos elementos de ese 
genero que tan popular se ha hecho en MICROMANIA. 

iQue ustedes Io pasen bien! 

n una galaxia dis- 
tante, en un planeta a punto de ex- 
tinguirse, el Oltimo de sus guardianes 
prepara la nave para el viaje final. 
Todos los libros, grabaciones y cono- 
cimientos d/versos han s/do almace- 
nados a bordo de la c6psula, junto 
con los mejores individuos de su ra- 
za, conservados criog6nicamente. El 
final del planeta se perfila pr6ximo 
y las ms v/tales piezas del equipo 
han s/do ya embarcadas y activadas. 
ALIEN 8, un cyboide que represen- 
ta el 01timo avance de la cibern6tica 
en inteligencia artificial, sube a bor- 
do para dirigir la operaci6n de con- 
ducir a estos seres hasta un lugar se- 
guro. 
Las escotillas de acceso se cierran 
y se produce el despegue hacia Io 

desconocido. La inmensa negrura 
del espacio devora a nuestros h6- 
roes. 

Gabriel Nieto 
D/rector de Micromania 

Transcurren eones y la prodigiosa 
m6quina, hbilmente programada, 
funciona a la perfecci6n. Acude con 
prontitud y silenciosamente alrede- 
dor de las selladas v61vulas term6- 
leas, cuidando de su perfecto funcio- 
namiento. 
La avanzada t6cnica en el desarro- 
Iio de la rob6tica existente en el aho- 
ra desaparecido planeta, ha permi- 
t/do encomendar a ALIEN-8 la deli- 
cada tarea de mantener con vida a 
los astronautas criogenizados, acti- 
vando continuamente los sistemas 
que les sirven de soporte. 

E1 final del viaje 

El largo viaje est6 a punto de fi- 
nalizar y la computadora central 
alerta sobre la proximidad del siste- 
ma solar prefijado. 
Polvo de eones envuelve el viejo 
banco de datos, nOcleo de la com- 
putadora central, cansado tras cen- 
turias de c61culos repetitivos y por fin, 
activado para la secuencia de aterri- 
zaje. 



La habilidad de los programado- 
res se pone a prueba en esta secuen- 
cia final, algunos cientos de aos luz 
m6s tarde de su partida del extingui- 
do planeta. 
Casi inmediatamente, la nave dis- 
minuye su velocidad por debajo de 
la luz y todos los sistemas principa- 
les permanecen activados intentano 
do contener la enorme masa. 
La computadora principal informa 
sobre la penetraci6n de alienigenas 
en casi todas las 6reas y soportes 
vitales, provocando su desactiva- 
ci6n. 
Todos los sistemas criognicos de- 
ben ser reactivados antes de que los 
mecanismos de empuje de la nave si- 
t0en sta dentro de la 6rbita, a 0 
amos luz del planeta. 

LA$ VAL VULA$ TERMOLEA$ 

Las v61vulas term61eas son los 
gnicos objetos que pueden ser re- 
cogidos y depositados tantas ve- 

ces como que- 
ramos, con 
la 0nica li- 
mitaci6n de 
no trans- 
portar m6s 
de tres a la 
vez ni depo- 

sitar mrs de dos en una misma ha- 
bitaci6n. 
Hay cuatro tipos de v61vulas 
term61eas: cuadrada, triangular, 
ovoide y cilindrica. Cada una de 
elias debe ser encajada sobre su 
apropiado z6calo, el cual se re- 
conoce por la forma del resplan- 
dor que despide. 
Adem6s 
. de acti- 
var los 
reactores, 
las v61vu- 
las term6- 
j leas tienen 
multitud de 
otras aplica- 
ciones marginales. 
Por ejemplo, podemos subirnos 
en elias, para alcanzar determi- 
nados objetivos. En el momento 
de saltar, si pulsamos simult6nea- 
mente la tecla de <<coger) objetos, 
la recuperaremos para futuros 
saltos en que pueda sernos de 
nuevo necesaria. 
Otra utilidad se nos pone de 

manifiesto en el momento de atra- 
vesar las habitaciones con ratones 
o minas. Si empujamos la vlvula 
a trav6s del suelo, 6sta, que es in- 
vulnerable, nos ir abriendo ca- 
mino. 
Hay alguna 
habitaci6n en /,. \ 
la quelos ro- // \ 
bodroides 
deben des- 
truir las mi- 
nas suficientes 
para pasar, pero al estar en blo- 
ques de dos pisos, s61o destruyen 
los del piso inferior, imposibilitan- 
do el paso de nuestro cyboide. 
En estos casos, la soluci6n es 
depositar una valvula sobre el ro- 
bodroide y destruir simult6nea- 
mente los dos pisos de minas. 
Pueden protegernos de las Io- 
sas que se desintegran (no Io hao 
r6n si previamente depositamos 
sobre elias una v61vu- 
la) y de los objetos /" 
m6viles (poniendo / 
la vdlvula en me- ', 
dio de su tra- 
yectoria). / 
Por Oltimo, 
en caso de que 
seamos atrapa- 
dos por el flujo de Energia Letal, 
la 0nica soluci6n es soltar un ob- 
jeto encima de 61, con Io que el 
movimiento se ver6 sensiblemen- 
te ralentizado posibilitando el que 
podamos dirigir al personaje. 

Obietivo de la mlsin 

En el interior de la nave hay 128 
habitaciones. Veinticuatro de elias 
son c6maras criog6nicas en donde se 
conservan, a bajisima temperatura, 
132 criogenautas. 
Los sistemas que permiten mante- 
nerlos con vida hasta el momento del 
aterrizaje de la nave en el planeta 
elegido, deben ser reactivados, aco- 
plando a cada uno de los z6calos 
term61eos que estn ubicados en las 
c6maras criog6nicas, su correspon- 
diente v61vula. Estas est6n distribuio 
das por determinadas habitaciones 
y deben ser recogidas y transporta- 
das hasta su c6mara adecuada. 

Tctica de iuego 

Para todos los adictos al KNIGHT 
LORE, el manejo del cyboide 
ALIEN-8 no debe presentar ninguna 
dificultad. Tanto el sistema de pro- 
gramaci6n (FILMATION), como el 
manejo de ambos juegos es exacta- 
mente el mismo. 
La diferencia sustancial entre am- 
bos es que mientras en el KNIGHT 
LORE todos los objetos recogidos de- 
ben ser depositados en una misma 
habitaci6n, en 6ste, cada objeto tie- 
ne su lugar adecuado, Io cual com- 
plica extraordinariamente el desa- 
rrollo de los acontecimientos. 
El tiempo, queen este caso indica 
el nOmero de amos luz que faltan pa- 
ra Ilegar hasta el planeta elegido, 
transcurre de forma inexorable. 
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A0n dominando a la perfecci6n to- 
das las t6cnicas para optimizar los reo 
corridos y conociendo los lugares es- 
trat6gicos a los que hay que subir y 
adonde II'evar los objetos, resulta casi 
imposible culminar la misi6n. 
Puesto que el n0mero de objetos 
m6ximo que puede transportarse de 
forma simult6nea es de tres, mientras 
que las posibles necesidades de ca- 
da c6mara son cuatro, es recomen- 
dable dejar algunos objetos (nunca 
m6s de dos en el mismo sitio) en zo- 
nas f6cilmente accesibles para poder 
recuperarlos en el momento adecua- 
do. Lo mejor es Ilevar al mismo tiem- 
po tres objetos distintos, teniendo 
perfectamente Iocalizado el sitio 
donde est6 el cuarto. Si en un mo- 
mento dado nos encontramos con al- 
guno repetido, Io cogeremos para 
dejarlo cerca, en alguna habitaci6n 
vacia. Es importante apuntar el sitio 
donde est6 cada obieto, ya que el 
elevado n0mero de habitaciones 
(128) hace que r6pidamente perda- 
mos la noci6n del espacio. Tambi6n 
es conveniente detener el juego mo- 
ment6neamente (con la tecla SPA- 
CE), cada vez que accedemos a una 
nueva pantalla, para estudiar con- 
cienzudamente c6mo abordar las di- 
ficultades que alli se nos presentan. 
Si no Io hacemos asi perderemos un 
tiempo precioso recapacitando sobre 
c6mo emprender determinada ac- 
ci6n e incluso, repitiendo movimien- 
tos al percatarnos de que la t6ctica 

ENEMIGO$ 
IMPLACABLE$ 
Desafortunadamente, la nave es- 
pacial ha resultado invadida en al- 
gunas de sus m6s vitales dependen- 
cias, Io que obliga a mantener con- 
tinuamente activadas las v61vulas ter- 
m61eas de las c6maras criog6nicas. 
Multitud de peligrosos seres nos es- 
peran en cada una de las 128 zonas 
en que se divide la aeronave. 

Vigilante mutante 

Se mueve continuamente y con tra- 
yectoria rectilinea, por Io que sus 
desplazamientos resultan predeci- 
hies. F6cil de esquivar, aunque a ve- 
ces su ayuda resulte imprescindible 
para salir de determinadas habita- 
ciones. 

LOS ROBODROIDE$ TELEDIRIGIDOS 

En la ardua tarea que supone so- 
brevivir, no podemos desdear nin- 
loUna de las ayudas que, de modo 
rtuito o intencionado, se nos pre- 
sentan en el transcurso de la misi6n. 
Hay colaboradores inesperados, 
como es el caso de los ratones me- 
c6nicos abri6ndonos camino a trav6s 
de las minas explosivas o los vigilan- 
tes mutantes que, en algunas ocasio- 
nes, transportan sobre sus cabezas 
pesados bloques sobre los que ha- 
bremos de subirnos para conseguir 
escapar. 
Los robodroides teledirigidos son, 
sin embargo, un caso claro de ayu- 
dantes dispuestos a colaborar sumi- 
samente. 
Su cometido principal es despejar 
las zonas de minas explosivas y pue- 
den activarse con s61o subir a la pla- 
taforma controladora que hay en de- 
terminadas habitaciones. Cuatro 
grandes flechas (ocultas en alg0n ca- 

so) indican el sentido del desplaza- 
miento. La velocidad del movimien- 
to ir6 marcada por la proximidad al 
centro de la plataforma. Cuanto m6s 
cerca del borde nos situemos, m6s 
r6pida ser6 la acci6n del robodroi- 
de. 
Cuando encontremos dos robo- 
droides en una misma habitaci6n, 
habr6 que controlarlos alternativa- 
mente. Esto es, cada vez que baje- 
mos de la plataforma y volvamos a 
subir, se pondr6 en marcha el que 
estaba detenido y viceversa. 

Energ;a letal 

Aunque en principio este tipo de 
fluido el6ctrico no resulta mortal, em- 
puja al protagonista hasta otros obs- 
t6culos que son sumamente peligro- 
sos, provocando de este modo un fa- 
tal desenlace. 

Rat6n mec6nico 

Accionado por mec6nicos resortes, 
sus err6ticos desplazamientos resul- 
tan de todo punto imprevisibles. A 
veces, a su pesar, se convierte en 
aliado destruyendo las minas explo- 
sivas (alas que es inmune) en sus alo- 
cadas carreras. No obstante, es con- 
veniente extremar los cuidados ante 
tan peligroso enemigo. 

inicial no era la m6s adecuada. En 
este senfido la pr6ctica ayuda bas- 
ta nte. 
Algunos de los objetos se encueno 
tran ocultos en lugares insospechao 
dos, por Io que es recomendable in- 
vestigar incluso en los sitios m6s re- 
c6nditos. Llegar hasta otros nos pa- 
recer6 imposible, pero siempre hay 
alguna forma, aunque se tarde en 
descubrirla. 
No existe ninguna habitaci6n ni lu- 
gar adonde no pueda accederse o 
desde donde no pueda salirse: todo 
es cuesti6n de paciencia y habilidad. 
Un objeto puede recogerse estan- 
do en diagonal con 61, por Io que a 
veces no ser6 necesario saltar pare- 
des u otros obst6culos para hacerse 
con 61. Una Oltima recomendaci6n: 
no dejar nunca objetos en aquellas 
habitaciones donde haya elementos 
m6viles ya que 6stos, en sus despla- 
zamientos, pueden destruirlos, sobre 
todo al cambiar de pantalla, y hay 
que recordar que el n6mero de ellos 
es s61o ligeramente superior al nece- 
sario. 
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Huevos de alienigena 
Est6n desprovistos de movimientos 
pero no por ello dejan de ser mor- 
talmente peligrosos. A menudo se 
encuentran ocultos bajo bloques de 
piedra aparentemente s61idos que 
desaparecen bruscamente bajo 
nuestro peso, provocando la muer- 
te instant6nea. 
Elipsoide magntico 
Es, con diferencia, el ms diab61i- 
co de los enemigos con el que pode- 
mos tropezarnos. Dotado de un de- 
tector de presencia magn6tica, per- 
sigue sin descanso a nuestro prota- 
gonista (no hay que olvidar que 
ALIEN-8 es met61ico) y la 0nica po- 
sibilidad de supervivencia es saltar 
por encima de 61 cuando le tenga- 
mos suficientemente pr6ximo. 
Minas  
explosivas 
$61o los ratones mecnicos y los ro- 
bodroides teledirigidos est6n capa- 
citados para sobrevivir al impacto 
contra uno de estos destructivos ob- 
jetos. 

AMSTRAD 
Teclea y salva en cinta el Progra- 
ma CARGALIEN para Amstrad0 

Una vez hecho esto tendr6s unos 
magnificos programas cargadores 
que se utilizan con las CINTAS ORI- 
GINALES del ALIEN 8 de Amstrad. 

PROGRAMA 
<<CARGALIEN) Amstrad 
10 OPENOUT 'A °:HEMORY &189F:LDAD °ALIEN' 
:CLS 
2g POKE &1134,&gS:POkE &If30 
38 POkE &II42,&C3.'POKE &II43,193:POKE &l 
144,168 
48 FOR I=41898 TO 41165:REAO A:POkE I,A: 
NEXT I 
188 INPUT °VIDAS INFINI'[AS S 0 N';V$ 
119 IF V='N' THEN POKE 
128 INPUT °NLtIERO DE VIDAS 
138 POkE 41185,N 
148 INPUT '.[IEMPO DE &8 A 
158 POKE 41111,1NT(T/256):POKE 41118T-I 
NT(I'/256)'256 
168 INPUT 'I'IENPO INFINI.[O S 0 N' ;.[$ 
179 IF T$='N' "[HEN POkE 41116o8 

Sigue al pie de la letra las instruco 
ciones de pantalla, indicando en ca- 
da caso <<s, o <<n alas distintas op- 
ciones, poniendo por 01timo el pro- 
grama original. Hala, a disfrutarlo. 

298 
$ 
318 
329 
338 
348 
359 
368 
$ 
378 
388 

IF I$='N' "[HEN POkE 411348 
INPUT 'IOVILIZAR OROIOE B 0 

IF I$='N' THEN POKE 41136,8 
INPUT °IhlIOVILIZAR BLOOUES S 0 N';I$ 
IF I$='N' THEN POKE 411388 
INPUT 'IhttOVILIZAR ESTRELLAB B 0 N'; 

IF I$='N' THEN POkE 41148,8 
INPUT 'II'LE A LOS OBJETOS S 0 N';N 

IF N$='N' THEN POkE 41142,8 
CALL &li88 

488 DATA 
,&21,&63&I2,&CD,&68,&A4,&21&Y9,&II&CO 
,&IB&65,&21,&FC&B,&CO&6O,&A4,&IO,&SF 
,&21,&C3,&I2,&CO&68,&A4&IO,&S%&21,&EA 
418 DATA &OB,&CD,&6B,&A4&IO&53&21,&7F 
&I4,&CO,&60,&A4,&21,&93t&I4&CD,&69,&A4 
&21,&A7,&t4,&CD,&68&A4,&IO,&41&21,&OI 
&OA,&CD&68&A4,&21,&B,&OA,&CO&68,&A4 
,&IO,&35,&AF,&77,&23,&77,&23,&77,&cg&3E 
42 DATA 
,&88,&t8,&OB,&3E,&Ig,&32,&SE,&II,&3E,&8i 
,&gF&I8,&AS,&IO,&AB,&IO,&BO,&I8&83&C3 
438 DATA 
,&ED,&BO,&IO,&B9 

189 INPUT 'NLtIERO DE HABITACI(]NES I A 24 
';N 
198 POKE 41118,N 
288 INPUT 'ATRAVESAR OBJETOS S 0 N';A$ 
218 IF A='N' THEN POKE 41123,2 
228 INPUT 'IOVILIZAR RATAS S 0 N';IS 
238 IF I$='N ' THEN POkE 411289 
248 INPUT 'IOVILIZAR ROBOT S 0 N';I$ 
258 IF I$='N' "[HEN POkE 41139,8 
269 INPUT 'IhOVILIZAR RATON S 0 N';IS 
279 IF I$='N' "[HEN POKE 411328 
288 INPUT 'IhI'IOVILIZAR FUERZA S D N';I$ 
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Presenta: 

Inform  tica 

el l  piz al que gusta deck 
mientras nuestros competidores dicen no 

UNICO PARA AMSTRAD, CON PRECISION PIXEL 

FUNCIONES ESP 

UNICO MENU DE PANTALLA l. ,[ 1 
ARRASTRE OBJETOS PANTALLA 117-1 
TRASLADO OBJETOS PANTALLA 

TRASLADO DE CURSOR S1 
CAJAS ELAST1CAS  
L1NEA ELASTICA l':__ l-l 
TRIANGULO ELASTICO [ SI  
ELIPSE ELASTICO . [ SI 

DIAMANTE ELASTICO SI 
FOLIGONO ELASTICO  NO 
HEXAGONO ELASTICO 'l [ 
OCTOGONO ELASTICO [ SI NO 
CUB0 ELASTICO I SI i NO 
P1RAMIDE ELASTICA 
CIRCUNFERENC1AS 

CIRCULOS RELLENOS 

CAJAS RELLENAS 
ELIPSES RELLENAS 

OTROS ,¢ 

sl I s I I 
SI NO [ 
1 Sl NO I 
I Sl NO 

CUNAS 

SIMULADOR DE CORTES 

DISENO DE ZOOM 
IMAGEN ESPEJO E INVERTIDA 
FONDO DE REFERENCIA 
REJILLA DE FONDO 

OFCION DISPLAY X, Y 
RELLENADO CON COLOR 

LAVADO DE COLOR 
VOLCADO PANTALLA RESIDENTE 
D1BUJO DE BORDES EN 3 D 
TEXTO 

9 TAMANOS DE BROCHA 
18 TOBERAS MOSTRADORAS 

4 MEZCLAS BAS1CAS 
VARIADOR DE MEZCLAS 
SOMBREADO DE MEZCLAS XOR 

FICHERO ICONOS RESIDENTES 

FICHERO RELLENOS RESIDENTES 

26 COLORES DE PAPEL 

PALETA DE 15 TONOS DE COLOR 

POSICIONAMIENTO DE PUNTO 

I SI [ NO 
I SI [ NO - ESTOS SON 
[ SI , s, 8 ALGUNOS EJ :* 'LOS 
Sl ] NO 
s, I No ° DE LOS GRAFICOS QUE VD. 
Is) NO 
Sl I NO o PODRA REALIZAR CON NUESTR 
si s 
I s, NO I  APIZ OPTICO 
Sl NO 
SI NO I 
l SI NO I • 
! Sl NO[ 
, 
SI I NO O 
i s i NO I 
l SI NO 
Sl NO' 

I sl NO I 
! sI Sl I 

RAYOS DESDE UN PUNffO FUO l SI NO I 
DIBUJO REFLEJADO (ESPEJO) - SI NO  
FUNCION HOME SI NO ] 
CONTROL DESDETECLADO SI I SI  
CONTROL CON JOYST1CK SI I NO i 
DISPONIBLES MODOS 1 Y 2 [ SI [ ? I 
DEBIDO A LA FALTA DE ESPA CIO NO PODEMOS LISTAR LAS OTRAS 
40 FUNCIONES MAS cUE NUESTRO LAPIZ ES CAPAZ DE HACER, 
ISPONIBLE PA', 
CPC 464 CASSETT: ...................... 4.900 ' ,,. 
CPC 464 664 DISCO ...................... 6.900 Ptas. 
CPC 6128 I, • O ................ 6.900 Ptas 
OVA no inclu'do 
t) NDICIONES ESPECIA ES P,I', DISTRIBUIDORES 



UN MUNDO EN 

ALTA RE$OLLIClON 

Veremos boy la forma de trabaiar en alta 
resoluci6n desde c6digo m6quina. Estudiaremos 
cada uno de los comandos Basic y c6mo simularlos 
desde c6digo m6quina. 

programa pro- 
puesto para esta semana realiza un 
cuadrado en pantalla con diferentes 
tintas proporcionando un marco pa- 
ra el texto a imprimir. 
Como todos sabemos, los coman- 
dos de alta resoluci6n de Amstrad, 
pueden ir acompaados hasta de 
cuatro par6metros, que son: coorde- 
nada X, coordenada Y, tinta y mo- 
do de tinta. 
PLOTR,X,Y,T,M 
El modo de tinta se refiere a la for- 
ma en que se desea imprimir en pan- 
talla. Existen cuatro modos de tinta 
utilizables, que son los siguientes: 
NORMAL 
XOR 
AND 
OR 
Cuando se escribe en modo NOR- 
MAL, se imprime el estado actual bo- 
rrando Io que existia anteriormente 
en ese punto. 
En modo XOR, si nosotros desea- 
mos imprimir un punto en una zona 
donde ya existe otro, ese punto se 
pone a cero, es decir, se borra de la 
pantalla. Si no existiese ningOn pun- 
to en ese lugar, entonces se imprimi- 
ria el nuestro. 
AI pintar en modo AND, Onica- 
mente se iluminar6 el pixel, si en el 
punto donde se imprime ya existe 
otro pixel iluminado. 
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Por Oltimo en modo OR, c'uando se 
imprime un punto, 6ste se pinta sea 
cual sea el estado anterior de dicho 
pixel. 
Cuando se trabaje en c6digo m6- 
quina, no podremos seleccionar con 
una sola Ilamada los cuatro pargme- 
tros utilizables en los comandos de 
alta resoluci6n Basic, sino que debe- 
rn ser elegidos realizando diferen- 
tes Ilamadas al firmware de nuestro 
Amstrad. 
Veamos en primer lugar cu61 es la 
rutina que selecciona el modo de tin- 
ta con el que se desea imprimir. 

Modo de escritura 
para gr6fi¢os #BC59 

Selecciona el modo de escritura 
para gr6ficos en alta resoluci6n. 
Condiciones de entrada 
El registro A debe contener el mo- 
do de escritura elegido. Los valores 
correspondientes a cada modo, son 
los siguientes: 
O...NORMAL 
1...XOR 
2...AND 
3...OR 
Condiciones de salida 
Los registros AF, BC, DE y HL se 
corrompen, y se ser preservan los 
dem6s. 
Otra de las Ilamadas que se deben 
hacer, es a la rutina encargada de 
seleccionar la tinta para los gr6ficos 
en alta resoluci6n. 
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Sele¢¢iona la tinta 
para gr6fi¢o$ ,BBDE 

Selecciona la tinta para trabajar en 
alta resoluci6n. 

Condiciones de entrada 

El acumulador debe contener el 
n6mero de tinta deseado. 

Condiciones de salida 

Se corrompe el registro AF y se 
preservan los restantes. 
Asi pues, Io primero que hace 
nuestro programa en c6digo m6qui- 
na, es elegir el modo de pantalla de 
trabajo, y a continuaci6n seleccionar 
el modo de escritura. 
Una vez hecho esto, deberemos 
colocar el puntero de gr6ficos en el 
lugar donde deseamos realizar nues- 
tro dibujo queen este caso ser6 un 
cuadrado. 
Para ello, deberemos Ilamar a una 
rutina del firmware que realice la 
funci6n de PLOT (en este caso reali- 
zaremos un plot absoluto). 

Coloca un punto en uno 
posici6n absoluto BBEA 

La actual posici6n del cursor de 
gr6ficos, se coloca en la posici6n in- 
dicada. Si el punto que se desea im- 
primir se encuentra fuera de las coor- 
denadas de la pantalla, entonces no 
se efectOa ninguna operaci6n. 
Condiciones de entrada 
El registro doble DE, debe conte- 
ner la coordenada X lel punto a im- 
primir, y el registro HL debe conte- 
her la coordenada Y. 
Condiciones de salida 
Se corrompen los registros AF, BC, 
DE y HL, los dem6s son preservados. 
Una vez colocado el cursor de gr6- 
ficos en la posici6n adecuada, inicia- 
remos la impresi6n de nuestro cua- 
drado, mediante 'PLOTR' (plots re- 
lativos), con los cuales iremos com- 
poniendo las lineas adecuadas. 
Dado que las lineas que queremos 
imprimir tienen una Iongitud de 150 
pixel las verticales y 250 las horizon- 
tales, realizaremos este trabajo me- 
diante un bucle, dentro del cual se 
producir6 la Ilamada a la rutina del 
firmware encargada de realizar los 
plots relativos. 

INICIO ) 
PREPARE PANTALLA I 
ELI]GIR IINTA I J 
PINTA RECUADRO I 
ILEGIR TINTA 2 J 
PINTA R/CUADRO J 
"ELEGIR TINTA 3 I 
t IMPIMIR TEXTO  

Efect6a un plot 
relativo BBED 

La posici6n actual del cursor gr6- 
rico, se coloca en la posici6n dada, 
tomando como coordenadas de re- 
ferencia las de la anterior posici6n. 
Condiciones de entrada 
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i@ 
20 
30 
40 
50 

ORG #A008 
; 
IMODE I 
; 
LD A,I 
60 CALL #BCSE 
70 ; 
80 ;MOE 8,0 
90 ; 
188 LD DE,0 
I18 LD HL,@ 
128 CALL #BBF@ 
138 ; 
148 ;DIBUJOS DE LAS ESQUINA 
158 ; 
168 LD 8,15 
178 BUCI: PUSH BC 
180 LD DE,5 
198 LD HL,3 
200 CALL #SBF3 
210 CALL DRAWR 
220 POP BC 
230 DJNZ BUCI 
24@ ; 
250 ;MOVE 8,299 
LD DE,O 
28@ LD HL,299 
290 CALL #BSF@ 
3@@ ; 
318 ; 
320 ; 
33@ LD B,15 
34@ 8UC2: PUSH BC 
35@ LD DE.5 
360 LO HL,-3 
370 CALL #SBF3 
388 CALL DRAWR 
390 POP BC 
400 DJNZ BUC2 
418 ; 
428 ;MOVE 539,0 
430 ; 
440 LD DE,539 
458 LD HL,@ 
46@ CALL #BBF@ 
470 ; 
48@ ; 
49@ ; 
500 LD B,15 
510 BUC3: PUSH BC 
528 LD DE,-5 
53@ LD HL,3 
54@ CALL #BBF3 
55@ CALL DRAblR 
568 POP BC 
578 DJNZ BUC3 
588 ; 
598 ;MOVE 539,299 
608 ; 
618 LD DE,539 
628 LO HL,299 
638 CALL #88F0 
648 ; 
658 ; 
668 ; 
678 LD B, 15 
688 BUC4: PUSH SC 
698 LD DE,-5 
708 LD HL,-3 
718 CALL #BSF3 
72@ CALL DRAWR 
738 POP 8C 
740 DJNZ BUC4 
750 ; 
768 ;PINTA LINEAS HORIZONTALES Y 
778 ;VERTICALES 
780 ; 
798 LD DE,@ 
808 LD HL,ISg 
818 CALL #BBF@ 
82@ LD DE,639 
830 LD HL,150 
848 CALL #88F6 
858 LD DE,@ 
868 LD HL,248 
870 CALL #BBFe 
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880 LD DE,639 
898 LD HL,248 
980 CALL #88F6 
918 LD DE,182 
928 LD HL,399 
93g CALL #BBF@ 
948 LD DE,182 
950 LD HL,e 
960 CALL #BSF6 
978 LD DE,457 
980 LD HL,399 
990 CALL #8BFg 
108@ LD DE,457 
1818 LD HL,0 
1020 CALL #BBF6 
1830 CALL #8818 
1048 RET 
1858 ; 
1068 ;PINTA UN CUADRAD0 
1070 ; 
1888 DRAWR: LD DE,g 
1898 LD HL,10@ 
1100 CALL #BBF9 
1110 LD DE,lOg 
1128 LD HL,@ 
1138 CALL #BBF9 
1140 LO DE,@ 
1158 LD HL,-I@@ 
1160 CALL #88F9 
1170 LD DE,-IOg 
1180 LD HL,@ 
1198 CALL #BF£ 
1200 RET 

El registro doble DE contendr6 el 
desplazamiento de la coordenada X, 
y en el registro HL se debe indicar el 
desplazamiento en la coordenada Y. 
Condiciones de salida 
Se preservan todos los registros ex- 
cepto AF, BC, DE y HL. 
De esta forma, si deseamos des- 
plazar la posici6n del cursor de gr6- 
ficos un pixel hacia arriba, debere- 
mos colocar en los registros DE y HL 
los siguientes valores: 
LD DE,O 
LD HL, 1 
y a continuaci6n realizar la siguien- 
te Ilamada: 
CALL #BBED 
Asi pues cargando dichos registros 
con diferentes valores, obtendremos 
las lineas verticales y horizontales 
que se desean para realizar el cua- 
drado. 
Este est6 compuesto por tres pixel 
de espesor, cada uno de los cuales 
se pinta con diferente color, esto se 
consigue eligiendo cada uno de los 
colores, y a continuaci6n efectuando 
la Ilamada a la rutina encargada de 
hacer el recuadro mediante plots re- 
lativos. 
Por Oltimo, se imprime en medio de 
dicho recuadro el texto deseado, pa- 
ra ello se cargan los registros HL y 
DE con las coordenadas de impre- 

I@ REM *PROGRANA CARGADOR* 
28 FOR N-&Agg@ TO &AGE2 
38 READ A:SLIHA=SUMA+A 
40 POKE N,A 
50 NEXT 
68 IF SUHA<>&6277 THEN PRINT "ERROR 
EN DATAS" 
78 DATA 62,1,205,14,188,17,g 
88 DATA 0,33,0,@,285,240,187 
90 DATA 6,15,197,17,5,8,33 
100 DATA 3,0,285,243,187,205,189 

II@ DATA 168,193,16,248,17,0,g 
128 DATA 33,43,1,205,248,187,6 
130 DATA 15,197,17,5,8,33,253 
148 DATA 255,285,243,187.205.189,16 
150 DATA 193,16,240,17,27,2,33 
160 DATA 8,0,285,248,187,6,15 
178 DATA 197,17,251,255,33,3,8 
180 DATA 2@5,243,187,285,189,16@,19 
198 DATA 16,240,17,27,2,33,43 
200 DATA 1,205,248,1876,15,197 
210 DATA 17,251,255,33,253,255,285 
220 DATA 243,187,205,189,160,193,16 
238 DATA 240,17,0,8,33,150,0 
240 DATA 205,240,187,17,127,2,33 
25@ DATA 158,8,285,246,187,17,8 
268 DATA 8,33,248,8,285248,187 
278 DATA 17,127,2,33,248,8,285 
28@ DATA 246,187,17,182,8,33,143 
298 DATA 1,285,248,187,17,182,@ 
380 DATA 33,@,0,205,246,187,17 
31@ DATA 201,I,33,143,1,205,24@ 
328 DATA 
33@ DATA 285,246,187,2@5,24,187,2@! 
348 DATA 17,0,8,33,100,8,205 
358 DATA 249,187,17,188,@,33,@ 
36@ DATA @,285,249,187,17,@,0 
370 DATA 33,156,255,285,249,187,17 
388 DATA 156,255,33,@,@,205,249 
39@ DATA 187,2@I,I,0,255,71,73 

si6n y la direcci6n de nuestro texto 
respectivamente, y se efectOa la Ila- 
mada a la rutina 'PRINT', estudiada 
en anteriores capitulos. 
Hemos visto hasta ahora algunos 
de los comandos de alta resoluci6n 
que se pueden ejecutar en nuestro 
ordenador, dejamos para el pr6ximo 
capitulo el estudio de los restantes. 

10 MODE 1 
20 MOUE 0,8 
30 FOR n-I TO 15 
48 MOVER 5,3 
58 GOSU8 230 
6@ NEXT 
78 MOVE 0,299 
80 FOR n- I TO 15 
9@ MOVER 5,-3 
I88 GOSUB 230 
118 NEXT 
128 MOVE 539,8 
138 FOR n-I TO 15 
148 MOVER -5,3 
150 GOSUB 238 
160 NEXT 
178 MOVE 539,299 
180 FOR n I TO 15 
190 MOVER -5,-3 

2@8 GOSUB 238 
210 NEXT 
211 MOVE @,158:DRAW 639,158 
212 MOVE @,248:DRAW 639,248 
213 MOVE 182,399:DRAW 182,@ 
214 MOVE 457,39£:DRAW 457,@ 
215 WHILE INKEY$ ":WEND 
22@ END 
238 DRAWR @,IB@:DRAWR Ig@,@:DRAWR 
@:DRAWR -I@@,@ 
240 RETURN 
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completa de tu orclenador Amstracl, en la que podr'as consu]tar todas 
las dudas que se planteen. El esluche te pennite tenet todas 
tus revtslas y cintas pedectamente ordenadas, y acceder a elias 
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hdern, un fnclice facilita la Iocalizact6n del tema que te lnterese 
en breves segundos. Conserva tu colecciOn de Microhob/mstrad 
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I jn esta misma sec- 
ci6n a os hemos presentado ante- 
riormente varias rutinas que tratan 
delmanejo oe • pantalla, comola 
de magnificaci6n o reducci6n. Aho- 
ra le toca el turno a la de inversi6n 
de pantalla, tanto vertical como ho- 
rizontalmente. 
El programa est6 ubicado a partir 
de la direcci6n de memoria &A000 
hexadecimal, y tiene una Iongitud de 
455 bytes. Adem6s, utiliza unos buf- 
fers a partir de la direcci6n &2000 
donde se realiza el trabajo de inver- 
si6n. 
Para poder utilizarla con una pan- 
talla realizada anteriormente, debe- 
remos escribir un programa Basic co- 
mo el siguiente: 
10 MODE N 
29 MEMORY &IFFF 
30 LOAD "INVER", &A000 
40 LOAD "PANTALLA", &C000 
50 CALL &A000 
donde 'N' deber ser el modo de 
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pantalla en el que se haya realiza- 
do la pantalla. 
Tal como se ha escrito el progra- 
ma anterior, se obtendria una inver- 
si6n vertical de la pantalla. Si Io que 
se desea es una inversi6n horizontal, 
deberemos cambiar la Iinea 50 por 
la siguiente: 
50 CALL &A000,1 
Aunque para cada modo de pan- 
talla se debe utilizar una rutina dis- 
tinta, no debemos preocuparnos de 
ello ya que nuestro programa detec- 
ta el modo en el que se est6 traba- 
jando, y llama a la rutina adecuada. 
Para realizar la inversi6n de pan- 
talla en forma vertical, se utiliza una 
sola rutina, ya que esta no depende 
del modo de pantalla en que se est6 
trabajando. 
Esto es debido a que para realizar 
este tipo de inversi6n, se trabaja 0ni- 
camente con bytes y no con bits. 
Asi pues, Io que hacemos es: tomar 
el primer byte del car6cter situado en 
la esquina superior izquierda de la 
pantalla y Io colocamos en el lugar 
del Oltimo byte del carcter situado 
en la esquina superior izquierda de 
la pantalla, colocando el que ocupa- 
ba esta Oltima posici6n en el lugar 
del primero, y asi sucesivamente. 
En Io que se" refiere a la inversi6n 
horizontal, el m6todo de trabajo es 
completamente distinto, ya queen 
esta ocasi6n, se deber6 trabajar con 
cada uno de los bits que componen 
cada byte, por Io que la rutina de- 
ber6 ser distinta para cada modo de 
pantalla. 

Veamos cu61 es el m6todo a em- 
plear en cada uno de los modos de 
pantalla para obtener este 01timo ti- 
po de inversi6n de pantalla. 
Cuando trabaiamos en modo 2, 
todos los bits que componen un byte 
contienen la informaci6n de si un pi- 
xel debe estar encendido o apaga- 
do, es decir, si un bit est6 a cero, di- 
cho pixel estar6 apagado, y por el 
contrario si est6 uno, Io veremos ilu- 
minado. 
Por Io tanto, para este modo de 
pantalla deberemos tomar cada uno 
de los bits de cada byte e invertirlos. 
Adem6s deberemos colocar el pri- 
mer byte de cada fila y colocarlo al 
final de 6sta, y este 01timo colocarlo 
al principio. 
Una vez hecho este intercambio, 
deberemos proceder a la inversi6n 
de los Bits que componen cada byte. 
Esta operaci6n deber6 efectuarse 
con cada uno de los bytes que com- 
ponen la pantalla. 
Cuando se desee trabajar como el 
modo 1 de pantalla, en este caso, no 
todos los bits que componen cada 
byte Ilevan informaci6n de pixel ilu- 
minados o apagados, ya queen es- 
te caso 0nicamente se pueden obte- 
ner cuatro pixels por cada byte, por 
Io tanto, en este caso, cada dos bits 
Ilevan dicha informaci6n. 
EIIo es debido a que la informaci6n 
de color se guarda en esos dos bits, 
es por eso por Io queen este modo 
de pantalla se pueden obtener has- 
ta cuatro colores, ya que son esos 
dos bits, es posible formar hasta cua- 
tro combinaciones como se puede 
ver a continuaci6n: 
color 1 color 2 color 3 color 4 
0001 10 11 
En este caso la rotaci6n de los bits, 
se deber6 efectuar por parejas. En 
este modo de pantalla, los bits que 
forman pareja son los siguientes: 
bits 0-4 
Bits 1-5 
bits 2-6 
bits 3-7 

La misma operaci6n anterior de- 
ber efectuarse con cada una de las 
parejas de bits. 
Por 01timo queda por ver c6mo se 
deber6 trabajar cuando nos encon- 
tremos en modo de baja resoluci6n, 
es decir, en modo 0. 
Como sabemos en este modo de 
pantalla, cada byte, tiene la posibi- 
lidad de encender o apagar dos pi- 
xel, es decir, cada cuatro bits Ilevan 
la informaci6n de cada uno de esos 
dos pixels. 



Gracias a esta estructura es por la 
que se pueden obtener hasta 16 co- 
lores en este modo de pantalla, ya 
que ese valor es el n0mero de varia- 
ciones que se pueden obtener con di- 
cho n0mero de bits. 
Estas combinaciones se obtienen 
de forma id6ntica a las explicadas 
anteriormente en modo 1, con la 0ni- 
ca diferencia de que en este caso se 
trabajan con cuatro elementos. 
Los grupos de bits que dan infor- 
maci6n sobre cada uno de los pixel, 
son los que se indican a continuaci6n: 

bits 7-5-3-1 
bits 6-4-2-0 

De esta forma se obtiene cada una 
de las inversiones para cada uno de 
los modos de pantalla, ya que la ru- 
tina detecta autom6ticamente en qu@ 
modo se est6 trabajando. 
Debemos tener en cuenta que las 

operaciones anteriormente mencio- 
nadas, se deben efectuar sobre los 
16384 bytes que componen la pan- 
talla. 
Si deseamos realizar diversos tipos 
de inversiones en una pantalla que 
hayamos preparado previamente, 
podemos realizar un programa en 
Basic que incluya hasta la linea 40 
del programa que hemos visto al 
principio de este arficulo, y adems 
posea las siguientes lineas: 

50 IF INKEYS="I" THEN CALL 
&A000 
60 IF INKEYS--"2" THEN CALL 
&A000, 1 
70 IF INKEY$--"S" THEN SAVE 
"PANTA", B,&C000, &4000 
80 GOTO 50 

De este modo realizaremos las in- 
versiones que deseemos y salvar la 
pantalla en disco cuando hayamos 

terminado, sin ensuciar la pantalla 
inicial. 
Para salvar en disco la rutina de in- 
versi6n de pantalla, deber6is copiar 
el listado ensamblador indicando co- 
mo origen la direcci6n &A000. 
Aquellos que no posean ensambla- 
dor, pueden copiar el cargador Ba- 
sic listado a continuaci6n, y una vez 
hecho, ejecutar el programa, en el 
caso de que no exista ning0n error, 
podremos salvar la rutina de la for- 
ma siguiente: 
SAVE "1NVER", B,&A000,455 
con Io que ya tendremos el progra- 
ma listo para eiecutarlo cuando de- 
seemos. 
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Pass I errors: 00 
A080 10 ORG" 
A000 FE06 20 CP 0 
A002 C'AFFAB 30 JP Z,INUER 
A005 CD118C 48 CALL #8C11 
A008 FE00 50 OF' 0 
A00A CAISA0 60 JP Z,M0000 
A00O FE0! 70 CP I 
AOOF CASAAO 80 JP Z,MOD01 
A012 CBDSAO 90 JP MOO02 
A015 CO2CAI 100 M0000: CALL STORE 
A018 210020 110 LD HL,#2000 
AOIB I14F60 120 LD DE,#6000+79 
A@IE 06C8 130 LD 8,200 
A020 C5 140 NUDOI: PUSH BC 
A021 E5 150 PUSH HL 
A022 05 160 PUSH DE 
A023 E8 170 EX DE,HL 
A024 0650 180 LD 8,80 
A026 C5 190 NUDOK: PUSH 8C 
A027 IA 200 LD A,(DE) 
A028 3600 210 LD (HL),0 
AO2A 0602 220 LD B,2 
A@2C 1F 230 KKI: RRA 
Ae2D CBI6 240 RL (HL) 
A@2F 10FB 250 DJNZ KKI 
A031 0E00 260 LD C,0 
A033 0602 270 LD 8,2 
A035 IF 280 KK2: RRA 
AO3& CB11 290 RL C 
A038 iOFB 300 DJNZ KK2 
AO3A F5 310 PUSH AF 
A038 CBll 320 RL C 
AO3D CB11 330 RL C 
AO3F 79 340 LD A,C 
A040 86 350 OR (HL) 
AO41 77 360 LD (HL),A 
A042 Ft 370 POP AF 
A043 0E00 380 LD C,0 
A045 0602 390 LD 8,2 
A047 IF 400 KK3: RRA 
A848 C811 410 RL C 
AO4A IeFB 420 DJNZ KK3 
A04C F5 430 PUSH AF 
Ae4D CBII 440 RL C 

AO4F CBII 
A051 CBII 
A053 CBII 
A055 79 
A056 86 
A057 77 
A858 0E00 
A05A F1 
A05B 0602 
AO5D IF 
AOSE C811 
A060 I@F8 

450 RL C 
460 RL C 
470 RL C 
480 LD A,C 
490 OR (HL) 
500 LO (HL),A 
510 LD C,0 
520 POP AF 
530 LD 8,2 
540 KK4: RRA 
550 RL C 
560 DJNZ KK4 
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A062 CB11 570 
A064 CB11 580 
A066 CBII 590 
A068 CBII 600 
AO6A C811 610 
A06C C811 620 
A06E 79 630 
AO6F 86 640 
A070 77 650 
A071 13 660 
A072 28 670 
A073 O1 680 
A074 1080 690 
A076 El 700 
A077 1600 710 
A079 1E50 720 
A@7B 19 730 
A07C EB 740 
AO7D E1 750 
AOTE 0600 760 
A080 0E50 770 
A082 09 780 
A083 Cl 790 
A084 109A 800 
A086 CD36Al 810 
A089 C9 820 
A08A CD2CAI 830 
AOSD 210020 .840 
A090 114F60 850 
A093 06C8 860 

MOD01: 

RL C 
RL C 
RL C 
RL C 
RL C 
RL C 
LD A,C 
OR (HL) 
LD (HL),A 
INC DE 
DEC HL 
POP BC 
DJNZ NUDOK 
POP HL 
LD D,O 
LD E,SO 
ADD HL,DE 
EX DE,HL 
POP HL 
LD B,0 
LD C,80 
ADD HL,BC 
POP BC 
DJNZ NUD01 
CALL PINTA 
REI 
CALL STORE 
LD HL,#2000 
LD DE,#6000+79 
LD 8,200 
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A095 C5 
A096 E5 
A097 D5 
A098 EB 
A099 0650 
A098 C5 
A09C IA 
AOgD 3600 
AOgF 0E00 
AOAI 0604 
AOA3 IF 
AOA4 CBI6 
AOA6 10FB 
AOA8 0604 
AOAA IF 
AOAB CBII 
AOAD 10FB 
AOAF CB11 
AOBI CB11 
AOB3 CB11 
A@B5 CBll 
AOB7 79 
AOB8 E6F0 
AOBA B6 
A08B 7 
A08C 13 
AOBD 28 
AOBE CI 
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AOBF 10DA 
AOCI El 
AOC2 1600 
AOC4 IE50 
AOC6 19 
AOC7 E8 
AOC8 El 
AgC9 0600 
AOCB 0E50 
AOCD 09 
AOCE CI 
AOCF 10C4 
AODI CD36A1 
ADD4 C9 
ADD5 CO2CAI 
ADD8 210020 
ADDS I14F60 
AODE 06C8 
AOEO C5 
AOEI E5 
ACE2 D5 
AOE3 0650 
ABE5 7E 
ACE6 12 
ACE7 IB 
ACE8 23 
ACE9 10FA 
AOEB El 
AOEC 1600 
AOEE IE50 
AOFO 19 
AOFI EB 
AOF2 El 
AOF3 0600 
AOF5 0E50 
AOF7 09 
AOF8 CI 
AOF9 10E5 
AOFB C036AI 
AOFE C9 
AOFF CD2CAI 
A102 210020 
A105 11309E 
A108 06C8 
AIOA C5 
A10B E5 
A10C D5 
A10D 0650 
AIOF 7E 
All0 12 
AIII 13 

870 NUD03: PUSH BC 
880 PUSH HL 
890 PUSH DE 
900 EX DE,HL 
910 LD B,80 
920 NUDOX: PUSH 8C 
930 LD A,(DE) 
940 LD (HL),0 
950 LD C,0 
960 LD B,4 
978 NUDOL: RRA 
980 RL (HL) 
990 DJNZ NUDOL 
1000 LD 8,4 
1818 NUDC: RRA 
1828 RL C 
1030 DJNZ NUDOM 
1040 RL C 
1050 RL C 
1868 RL C 
1078 RL C 
1080 LD A,C 
1898 AND 248 
1108 OR (HL) 
1110 LD (HL),A 
1120 INC DE 
1130 DEC HL 
1148 POP BC 
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1150 DJNZ NUDOX 
1168 POP HL 
1178 LD D,g 
1180 LD E,80 
1190 ADD HL,DE 
1208 EX DEHL 
1210 POP HL 
1220 LD B,0 
1230 LD C,88 
1240 ADD HL,8C 
1250 POP 8C 
1269 DJNZ NUD03 
1270 CALL PINTA 
1280 RET 
1298 MOO02: CALL STORE 
1300 LD HL,#2800 
1310 LD DE,#6000+79 
1320 LD B,200 
133@ NUD07: PUSH BC 
1340 PUSH HL 
1350 PUSH DE 
1360 LD 8,80 
1370 NUDO8: LD A(HL) 
1388 LD (DE),A 
1390 DEC DE 
1400 INC HL 
1410 DJNZ NUD08 
1420 POP HL 
1430 LD D,8 
1440 LD E,80 
1450 ADD HL,DE 
1460 EX DE,HL 
1470 POP HL 
1480 LD B,0 
1490 LD C,80 
1508 ADD HL,BC 
1510 POP BC: 
1520 DJNZ NUD07 
1530 CALL PINTA 
1540 RET 
1550 INVER: CALL STORE 
1560 LD HL,#2000 
1578 LD DE,#E30 
1580 LD B,200 
1590 NUDOA: PUSH BC 
1600 PUSH HL 
1610 PUSH.DE 
1620 LD 8,80 
1630 NUD09: LD A,(HL 
1640 LD (DE),A 
1650 INC DE 

All2 23 1660 INC HL 
A113 IgFA 1670 DJNZ NUD09 
All5 El 1680 POP HL 
Al16 1680 1690 LD D,@ 
All8 IE50 1700 LD E,S@ 
AlIA 37 1718 SCF 
A11B 3F 1720 CCF 
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AIIC ED52 1738 SBC HL,DE 
AIIE E8 1740 EX DE,HL 
AIIF El 1758 POP HL 
A120 0600 1760 LD 8,0 
A122 0E50 1770 LD C,80 
A124 09 1780 ADD HL,BC 
A125 C1 1790 POP 8C 
A126 10E2 1800 DJNZ NUDOA 
A128 CD36AI 1810 CALL PINTA 
AI2B C9 1820 PET 
A12C 210101 1830 STORE: LD HL,#eI01 
AI2F 110020 1840 LD DE,#2000 
A132 CD40AI 1850 CALL LEER 
A135 C9 1868 RET 

A136 218181 
A139 110060 
AI3C CD83AI 
AI3F C9 

A140 D5 
AI41 EB 
A142 21BOBF 
A145 42 
A146 1600 
A148 ID 
A149 19 
A14A 115000 
AI4D 19 
A14E 10FD 
A150 DDEI 
A152 3A81AI 
A155 47 
A156 1815 
A158 7C 
A159 E638 
A15B FE38 
AISD 2806 
AI5F 7C 
A160 C608 
A162 67 
A163 1808 
A165 115000 
A168 7C 
A169 EE38 
AI6B 67 
AI6C 19 
AI6D C5 
A16E E5 
AI6F 3A82AI 
A172 47 

1870 
1880 
1890 
1908 
1910 
1920 
1930 
1940 
1950 
1960 
I 970 
1980 
1990 
2000 
2010 
2020 
2038 
2040 
2058 
2060 
2070 
2080 
2@90 
2100 
2110 
2120 
2138 
2140 
2150 
2160 
2170 
2180 
2190 
2208 
2210 
2228 
223@ 
2248 
225@ 
226@ 
2270 
2280 
2298 
2380 

; 
; 
PINTA: LD HL,#@I@I 
LD DE,#6808 
CALL IMPRE 
RET 
; 
; 
;RUTINA-LEERSION 
;H-POSICION-VERTICAL-INICIO-I 
;L-POSICION-HORIZONTAL-INICIO-I 
;DE-DIRECCION-GRAFICO 
; 
LEER: PUSH DE 
EX DE,HL 
LD HL,#Cg@@-8@ 
LD B,D 
LD D,@ 
DEC E 
ADD HL,DE 
LD DE,88 
8_8U: ADD HL,DE 
DJNZ S_BU 

P_BU : 

P_PA : 

COLO: 

POP IX 
LD A,(ALTO) 
LD 8,A 
JR COLO 
LD A,H 
AND 56 
CP 56 
JR Z,P_PA 
LD A,H 

ADD A,8 
LD H,A 
JR COLO 
LD DE,0080 
LD A,H 
XOR 56 
LD H,A 
ADD HL,DE 
PUSH 8C 
PUSH HL 
LD A,(ANCHO) 
LD 
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A173 7E 2310 P_BUI: LD A,(HL) 
A174 DD7700 2320 LD (IX+O),A 
A177 0023 2330 INC IX 
A179 23 2340 INC HL 
A17A 10F7 2350 DJN2 P_BUI 
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AI7C 
AI 7D 
AI 7E 
A180 
AISI 
AI 82 
A183 
A184 
A185 
A188 
A189 
A188 
AI 8C 
AISD 
AI 9@ 
Algl 
A193 
A195 
AI 98 
A199 
A198 
A19C 
AIgE 
AIA0 
AIA2 
AIA3 
AIA5 
AIA6 
AIA8 
AIA8 
AIAC 
AIAE 
AIAF 
AIB@ 
AI81 
AIB2 
A185 
A186 
AI 89 
AI BA 
AI BC 
AIBD 
AI BF 
AIC@ 
AICI 
AIC3 
Pass 
ALTO 

Hi soft 

El 2360 POP HL 
Cl 2370 POP BC 
IgD8 2380 DJNZ P_BU 
C9 2390 RET 
C8 24@0 ALTO: DEFB 2@@ 
50 2410 ANCH0: DEFB 8@ 
2420 ; 
2438 ; 
2440 : 
D5 2458 IMPRE: PUSH DE 
E@ 2468 EX DE,HL 
21B@BF 2478 LD HL,#C008-88 
42 2480 LD B,D 
1600 2490 LD D,@ 
ID 2508 DEC E 
19 2518 ADD HL,DE 
115000 2520 LD DE,8@ 
19 2530 S_BUC: ADD HL,DE 
10FD 2540 DJNZ S_BUC 
DDEI 2550 POP IX 
3ASIAI 2560 LD A,(ALT0) 
47 2570 LD B,A 
1815 2580 JR C0LOC 
7C 259@ P_BUC: LD A,H 
E638 2680 AND 56 
FE38 2610 CP 56 
2886 2628 JR Z,P_PAS 
7C 2630 LD A,H 
C688 2640 ADD A,8 
67 2658 LD H,A 
1888 266g JR C0LOC 
115888 2670 P_PAS: LD DE,0880 
7C 2688 LD A,H 
EE38 2690 XOR 56 
67 " 2788 LD H,A 
19 2710 ADD HL,DE 
C5 272@ COLOC: PUSH 8C 
E5 2738 PUSH HL 
3A82AI 274@ LD A,(ANCH0) 
47 275@ LD B,A 
DDTEB@ 2768 P_BUCI: LD A,(IX+@) 
77 2778 LD (HL),A 
0023 2780 INC IX 
23 2790 INC HL 
IBF7 288@ DJNZ P_BUCI 
El 2810 POP HL 
CI 2820 POP BC 
leD@ 2830 DJNZ P_BUC 
C9 2840 RET 

2 errors: 80 

AISI ANCH0 A182 COL0 AI6D 
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C0LOC AIB0 IMPRE A183 INVER ABFF 
KKI A@2C KK2 A835 KK3 A047 
KK4 A@SD LEER A140 MOD00 A015 
MOO01 A@SA MOD02 Ago5 NUD01 A028 
NUD03 A895 NUD07 AgE@ NUD08 AOE5 
NUD09 AIBF NUDOA Alga NUDOK A826 
NUDOL AgA3 NUDOM AgAA NUDOX A@gB 
PINTA" A136 P_BU A158 P_BUI A173 
P_BUC A198 P_BUCl AIB6 P_PA A165 
P_PAS AIA8 ST0RE AI2C S_SLI AI4D 
8_8UC A190 

Table used: 408 from 1880 

10 REM *PROGRAMA CAI:GAOOR* 
20 FOR lq=,A000 TO .!,AIC:4 
38 RED A:SLIMA-SUMA+A 
48 POKE 
56 NEXT 
6@ IF Sur4A<>46637 THEN PRINT "ERROR 
EN DATAS ' 
7 DATA 254,,282,255, 16,25,17 
8 DATH 188254,202,21 ,160254 

9@'DATA 1,282,138,168,195,213,160 
108 DATA 205,44,161,33,@,32,17 
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79,96,6,288,197,229',213 
235,6,88,197,26,54,8 
,2,31,203,22,16,251 
14,8.6,2,31,203,17 
16,251,245,203,17,203,17 
121,182,119,241,14,8,6 
2,31,283,17,16,251,245 
203,17,20317.203,17,203 
17,121,182,119,14,@,241 
6,2,31,283,17,16,251 
203,17,203,17,203,17,283 
17,203,17.203,17,121.182 
119,19,43,193,16,176,225. 
22,0,3@,80,25,235,225 
6,0,14,80,9,193,16 
154,205,54,161,201,205,44 
161,33,@,32,17,79,96 
6,200,197,229,213,235,6 
80,197,26,54,0,14,@ 
6.4,31,203,22,16,251 
6,4,31,203,17,16,251 
203,17,203,17,203,17,203 
17,121,230,240,182,119,19 
43,193,16,218,225,22,@ 
3@,80,25,235,225,6,0 
14,80,9,193,16,196,205 
54,161,201,205,44,161,33 
@,32,17,79,96,6,200 
197,229,213,6,80,126,18 
27,35016,250,225,22,0 
30,8@,25,235,225,6,@ 
14,80,9193,1o229,205 
54,161,201,205,44,161,33 
0,32,17,48,158,6,280 
197,229,213,6,80,126,18 
19,35716,250.225,22,0 
30,8@,55,63,237°82,235 
225,600,14,80,9,193 
16,226,205,54,161281,33 
161,201,33,1,1,17,0 
96,205,131161,201,213235 
33176,191,66.22,8,29 
25,17,80,@,25,16,253 
221,225,58,129,161,71,24 
21,124,230,56,254,56,40 
6,124,198,8,103,24,8 
17,80,@,124,238,56,103 
25,197229,58,130,161,71 
126,221,I19,@,221,35.35 
16,247,225,193,16,216,201 
200,80,213,235,33,176,191 
66,22,@,29,25,17,80 
0,25,16,253,221,225,58 
129,161,71,24,21,124,230 
56254,56,4,6,124,198 
8,183,24,8,17,80,0 
124,238,56,103,25,197,229 
58,130,161,71,221,12,0 
119,221,35,35,16,247,225 
193,16,216,201,255,82,83 

II@ DATA 
120 DATA 
ISS'DAT 
140 DATA 
150 DAT 
168 DATA 
170 DATA 
180 DATA 
198 DATA 
2@0 DATA 
210 DATA 
22@ DATA 
230 DATA 
24@ DATA 
250 DATA 
26@ DATA 
270 DATA 
288 DATA 
298 DATA 
380 DATA 
310 DATA 
320 DATA 
330 DATA 
340 DATA 
350 DTA 
36@ DATA 
37@ DATA 
38@ DATA 
390 DATA 
408 DATA 
410 DATA 
420 DATA 
430 DATA 
440 DATA 
450 DATA 
460 DATA 
470 DATA 
480 DATA 
49@ DATA 
50@ DATA 
510 DATA 
52@ DATA 
53@ ATA 
540DATA 
550 DATA 
56@ DATA 
570 DATA 
58@ DATA 
590 DATA 
6@0 DATA 
618 DATA 
620 DATA 
63@ DATA 
640 DATA 
650 DATA 
660 DATA 
67@ DATA 
68@ DATA 
69@ DATA 
7@@ DATA 
710 DATA 



iPOR FIN, CARATULAS 
PARA TUS DISCOS. I 

Amstrad Semanal, en su primer Aniversario, ha pensado en haceros un regalo, tal vez modesto, pero sin duda 0til, y 
realizado de todo coraz6n. 
Despus de 50 nOmeros juntos, se han publicado multitud de cosas como juegos, utilidades, 'c6digo m6quina y otras muchas 
secciones que incluyen programas. 
Probablemente a todos os gustaria tenerlas ordenadas, y en disco, cosa que sin duda habis hecho. Para decorarlos y 
distinguirlos un poco, estas car6tulas creemos que os sern de gran ayuda y utifidad. 

Utilidades 

CARA A 

CARA B 

NICRO® 

Juegos 

CARA A 

CARA B 



l Lengua es 

I 

CARA A 
CARA B 



ISION 

Fisi6n es un iuego de estrategia bipersonal, basado en la idea de simular una reacci6n 
nuclear. A pesar de la sencillez de sus reglas, los ¢ompllcadas estrategias que sobre dl 
pueden desarrollarse son impredecibles. 

Por Vicente Carriles Rodr(guez 

obre las instruccio- 
nes delj ego poco hay que decir, 
pues vien .n incorporadas en el pro- 
pio progroma. El juego se desarro- 
Ila sobre un ta]olero y existen dos ti- 
pos de fichas, uno para cada juga- 
dor. El objetivo consiste en dejar sin 
fichas al contrincante. 
El programa Ileva incorporado 
tres Ilamadas al firmaware. 
Ca1 l&bb03, que limpia el buffer de 
teclado, y que adem6s produce un 
efecto secundario que provoca que 
el programa no se pueda detener, 
por Io que no hay que olvidar gra- 
barlo una vez tecleado. Las otras dos 
Ilamadas &bb18 y 0 esperan a que 
se pulse una tecla y resetean el or- 
denador respectivamente. 
A continuaci6n damos la estructu- 
ra del programa asi como la tabla de 
variables por si alguien se anima a 
modificarlo incorpor6ndoles nuevas 
caracteristicas y adapt6ndole a su 
propia personalidad. 

28 

10 
110 - 

180 
370 
430 
610 
680 
960 
1000 

1050-1 
1340-1 

1480-1 
1520-1 
1650-1 

£$TRUCTU' ' " L " ' 
100 Presentaci6n del programa. 
170 Se hacen las ventanas, dimensi6n de variables, creaci6n de 
caracteres, define variables, elige colores y restaura el modo 
inicial. 
360 Dibuja el tablero. 
420 Imprime los contadores en cada una de las ventanas. 
600 Empieza el juego, pide turnos y comprueba la jugada. 
670 Actualiza contadores de fichas. 
950 Hace las operaciones necesarias en caso de explosi6n. 
990 Comprueba si hubo explosiones. 
1040 Imprime Oltima jugada e imprime la situaci6n de los 
contadores. 
330 Imprime el actual estado del tablero. 
470 Cuenta las fichas despu6s de cada jugada y comprueba si 
gan6 uno de los jugadores. 
510 Borra fichas del tablero. 
640 Imprime ganador y opci6n a seguir jugando o fin. 
850 Instrucciones. 

UTIMJ"UG 
NEGRS C-4  

DENTRO.. g 
FUER., . 39 
IOTAL . 48 

FUR 39 
TOTAL ,. 52 

:3 



]! REN ********** PRESENTACION **** 
30 CALL &BB83:MODE l-'INk 1,24:INK 0 
,1:INk 2,10:INK 3,0:PAPER O:PEN 
ORDER I 
40 PRINT IAB(12);'*** EXPLDSI 
':LOCALE 7,4:PRINT CH(164);'.JBS 
& UCR 84/84/1986 (UI)':LOCATE 12,8: 
PRINT'JUEGO DE TABLERO':LOCATE 13,1 
]:PRINT'realizado por'.'LOCAIE 8,13 
:PRINT'Jose B. S. & Vicente C. R.' 
58 LOCATE 16,17.'PRINT'para tu':LOC 
ATE 18,19:PRINT'AMSTRAD CPC 464/612 
8' 
68 LOCATE 6,24:PRINT°QUIERES INSTRU 
CCIOhlES (S/N)..?' 
70 X$=INKEY$:Xi=UPPERi(X$):IF Xi=°S 
' THEN GOSUB 1650 ELSE IF X$='N'TBE 
N 110 ELSE 70 
88 LOCATE 2,14:PRINT'QUIERE VOLVER 
A VER LAS INSTRUCCIOIIES°:PRINT ' (S/ 
N)' 
98 GOTO 78 
188 ' 
lid REM ***** DEF VEN'[/IAS,FICS * 
120 ' 
130 MODE I :PAPER#7,6: CLS#7 :WINDOWII8 
,1,40,1,25 
140 DEFINT A-N:SYMBOL 250,68,126,25 
5,255,255,255,126,68 
158 BF--58:NF--58:DIM A(5),B85),C$( 
5) ,I)$85),E$(5),A(5) ,B(5) ,C85) ,D(5), 
E(5) 
160 WINDOW#1,18,38,2,22:WINDOW#2,3, 
15,2,4:WINDOW#3,3,15,7,11 :WINDOW#4, 
3,15,15,19:WIND#D,3,15,22,24.'WIND 
OW#6,18,38,24,24 : PAPER#1,2 : PEN#1,3: 
CLS#1 :BORDER 8 
178 ' 
188 REN ****** DIBUJA EL TABLERO ** 
190 ' 
280 PRINT#I ,CHR$(159) ; 
216 FOR N=I TO 5:FOR M=I TO 3:PRINT 
II ,CHR$(154) ; :HIEXT M..PRINT#1 ,CH(I 
58) ;:HIDE[ N 
228 PRINT#1 ,CHR(8)+CHRi(156); 
230 FOR L=I TO 4 
248 GOSUB 310-'PRINT#1,CHRI(151); 
258 FOR N=I TO 5:FOR M=I lO 3:PRINT 
#I ,CBRi(154) ; :NEX'F M:PRINT#I ,CHR$(I 
59) ;:HE)El N 
268 PRINT#1 ,CHR(8)+CHR(157) ; 
278 NEXT L 

280 GOSUB 310 :PRINT#I ,CHR$8147) ; 
290 FOR N=I TO 5:FOR M=I TO 3:PRINT 
#I ,CHRI(154) ; :NEXT M:PRINT#1 ,CHR(I 
55) ;:NEXT N 
388 LOCATE 38,22:PAPER 2:P¢ 3-'PRIN 
T CHRS(153):GOTO 328 
318 FOR M=I TO 3:PRINT#1CHR$(]49); 
' ' ;CHRl(149) ;' ' ;CHRS(149) ;' 
' ;CHR(149) ;' ';CH(149);" '; 
CH(149') ; :NEXT M:RETURN 
329 INK 2,IO:INK 3,9:PAPER O:PEN I: 
) ;'B' ;IAB(28) ;'C' ;TAB(32) ;'D' ;TAB(3 
6);'E' 
338 FOR N=4 TO 28 STEP 4 
348 F=F+I :Fi=STR(F):F$---MII)$(F$,2,1 
):LOCALE 3?,N:PRINT F$ 
358 NF_.XI" N 
368 ' 
378 REM ***** NOMBRE DE COhFFADORES 
380 ' 

448 ' 
450 CALL &BBB3:IF J=" OR J$='NEGR 
AS'THEN PENII6,1:J='C#4ARILLAS' ELSE 
PEN#6,3:JI='NEGRAS' 
468 PRINT#6,'TURNO ';iS;' '; 
478 ZS=INKEY$:ZS=UPPERi(Z$):IF Z$)C 
HR$869) OR Z$(CHRS(65) THEN 478 ELS 
E PRINT#6,Z$;'-' ; 
488 Y=INKEY$:IF Y$('I' OR Y$)'S' T 
HEN 488 ELSE PRINT#6,Y$:-G=VAL(Y$) 
490 IF ZS='A' THEN 508 ELSE IF 25 =' 
B' THEN 528 ELSE IF Z'C' "[HEN 548 
ELSE IF Z$='D' THEN 568 ELSE IF Z$ 
='E" THEN 88 

JS 
zs 
YS 
AS(N) 
BS(N) 
CS(N) 
DS(N) 
ES(N) 
A(N) 
B(N) 
D(N) 
E(N) 
BF 
BD 
NF 
ND 
BLA 
NEG 

TABLA DE VARIABLES 
Turno de iugodo (amorillos, negras). 
Coordenadas de letras (A, B, C, D, E). 
Coordenadas de n0meros (1, 2, 3, 4, 5). 
Guarda el color de cada una de los fichas que hay en los casiUas. 
Guarda el color de cada una de las fichas que hay en los casillas. 
Guarda el color de cada una de los fichas que hay en las casillas. 
Guarda el color de cada una de las fichas que hay en las casillas. 
Guarda el color de cada uno de los fichas que hay en los casillas. 
Guarda la cantidad de fichas que hay en cada una de los casillas. 
Guarda la cantidad de fichas que hay en cada una de los casillas. 
Guarda la cantidad de fichas que hay en cada una de las casillas. 
Guarda la cantidad de fichas que hay en cada una de las casillas. 
Guarda la cantidad de fichas que hay en cada una de las casillas. 
Contiene la cantidad de fichas amariUas que hay fuera del tablero. 
Contiene la cantidad de fichas amarillas que hay dentro del tablero. 
Contiene la cantidad de fichas negras que hay fuera det tablero. 
Contiene la cantidad de fichas negras que hay dentro del tablero. 
Pertenece al total de fichas amarillas. 
Pertenece al total de fichas negras. 

398 FOR N=2 TO 6:PAPERIIN,2:PENIfN,3: 
CLS :NEX'r N 
488 PRINT#2,'ULTIMA JUGADA';STRING$ 
(13,154):PRINT#3,' FICHAS AMA.';STR 
ING$(13,154) ;'DENTRO..' ,'FUERA...', 
'TOTAL...' 
418 PRINT#4,' FICHAS NEG. ';STRINGS 
813,154) ;'DEhF[RO.. ', 'FUERA... ', 'TO 
TAL...':PRINT#5,' C.£4¢N LAS ';STR 
ING$(13,1.54) :GOSUB 1020 
428 ' 
438 R ******* TUOS DE JUBDA ** 

588 IF AS(G)=" THEN A$(G)=J$ ELSE 
IF AS(G)()J$ THEN 466 
518 A(G)=A(G)+I :GOSUB 610:GOTO 430 
520 IF B$(G)=" THEN B(G)=J$ ELSE 
IF B(B)()J$ THEN 468 
538 B(G)=B(G)+I:BOSUB 618:GOTD 438 
540 IF C$(G)=" IHEN C$80)=J$ ELSE 
IF L'$(G)()J$ THEN 46 
558 C(G)=C(B)+I:GOSUB 6IO:GOIO 438 
568 IF ItS(G)='" THEN D(G)=J$ ELSE 
IF D$(G){)J$ THEN 468 
570 D(G)=D(G)+I:GOSUB 618:GOTO 438 
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588 IF E$(G)=" THEN E$(G)=d$ ELSE 
IF E$(G)()J$ THEN 468 
598 E(G)=E(G)+I:GOSUB 618:GOTO 438 
628 ' 
63B IF J$=°AMARILLAS' THEN BF=BF-]: 
BD=BD+I ELSE NF=NF-]:NO=hlD+] 
64@ LOCATE#2,1,3:PRINT#2,STRING$(13 
,32);:LOCATEW2,1,3:PRINT#2,J$;' ';Z 
$;'-' ;Y$; 
658 N3=G:N4=G:IF G=! THEN N2=-2 ELSE 
IF G=2 THEN N2=6 ELSE IF G=3 THEN 
N2=]8 ELSE IF G=4 THEN N2=4 ELSE 
F G=5 THEN N2=18 
668 GOSUB 888 
67@ ' 
688 REM w** CORPROBAR EXPLOSIONES 
690 ' 
?@8 IF A(I}>I THEN A(2)=A(2)+I:AS(2 
-2;GOSUB I@58:IF A(1)=@ THEN AS(1)= 
7]@ IF B(I))2 THEN 
)=J$:B(2)=B(2)+I:B$(2)=J$:C(1)=C(1) 
+I;C$(])=J$:B(1)=B(1)-3:GOSUB 
IF B(I)=8 THEN B't(1)=" 
728 IF C(I)>2 THEN 
)=J$:C(2)=C(2)+I:C$(2)=J$:D(1)=D(I) 
÷I:D$(1)=JS;C(])=C(1)-3:GOSUB 
IF C(1)=@ THEN C(1)=" 
738 IF D(1)>2 THEN C(1)=C(])+I:C$(I 
)=J$:D(2)=D(2)÷I:D(2)=J$:E(1)=E(1) 
+I;E$(1)=J$:D(1)=D(1)-3:GOSUB I858: 
IF D(I}=8 THEN 
748 IF E(1)>] THEN 
)=J$:E(2)=E(2)+I:E$(2)=J$:E(1)=E(1) 
-2:GOSUB I@S@:]F E(1)=@ THEN E$(1)= 
758 IF A(2)>2 THEN A(1)=A(I)+I:A$(I 
)=J$:A(3)=A(3)+I:A$(3)=J$:B(2)=B(2) 
+I:B(2)=J:A(2)=A(2)-3:GOSUB I858: 
IF A(2)=8 THEN 
768 IF B(2)>3 THEN A(2)=A(2)+I:A$(2 
)=J$:B(1)=B(1)+I:B$(1)=J$:B(3)=B(3) 
2)=B(2)-4:GOSUB I@S@:IF B(2)=8 THEN 
I(2)=" 
77# IF C(2))3 THEN B(2)=B(2)+I:B(2 
+I:C$(3)=J$:D(2)=D(2)+I:D$(2)=J$:C( 
2)=C(2)-4:GOSUB I@58:IF C(2)=8 THEN 
C$(2)= '° 
788 IF D(2))3 THEN C(2)=C(2)I:C$(2 

)=J$:D(1)=D(1)+I:D$(1)=J$:D(3)=D(3) 
*I:DS(3)=J$:E(2)=E(2)+I:E(2)=J$:D( 
2)=D(2)-4:GOSUB I@5@:IF D(2)=B THEN 
D$(2)=" 
77@ IF E(2))2 THEN D(2)=D(2)+I:D$(2 
)=j$:E(1)=E(1)+I;E$(1)=J$:E(3)=E(3) 
+I:E$(3)=J$:E(2)=E(2)-3:GOSUB 1858: 
IF E(2)=8 THEN E$(2)=" 
888 IF A(3)>2 THEN A(2)=A(2)÷I:A(2 
)=j:A(4)=A(4)+I:A$(4)=J:B(3)=B(3) 
+I:B$(3)=J$:A(3)=A(3)-3:GOSUB 1858: 
IF A(3)=8 THEN A$(3)=" 
BIB IF B(3))3 THEN A(3)=A(3)*I:A$(3 
)=J:B(2)=B(2)+]:BS(2)=J$:B(4)=B(4) 
+I:B$(4}=J$:C(3)=C(3)÷I:C$(3=J$:B( 
3)=B(3)-4:GOSUB IS8:IF B(3)=8 THEN 
B$(3)=" 
828 IF C(3))3 THEN B(3)=B(3)+I:B$(3 
)=J$:C(2)=C(2)+I:C$(2)=J$:C(4)=C(4) 
+I:C$(4)=J$:D(3)=D(3)+I:(3)=J:C( 

U TtM 
AMARILL;IS 

I  CHAS AMA. I 
EMTRO.. 8 
FUEIRA.. 
TOTAL... SO 

'ENTRO, 7 

UERA... 4 
'TOTAL... SO 

AN All 

"[URHO 

3)=C(3)-4:GOSUB I@SB:IF C(3)=8 THEN 
C$(3)=" 
83# IF 0(3)>3 THEN C(3)=C(3)+I:C$(3 
)=J$ 
+I:I(4)=JS:E(3)=E(3)+I:E$(3)=J:D( 
3)=D(3)-4:GOSUB ]858:]F D(3)=8 THEN 
1(3)=" 
848 IF E(3)>2 THEN D(3)=D(3)+I:(3 
)=J$:E(2)=E(2)+I:E$(2)=J$:E(4)=E(4) 
+I:E$(4)=JS:E(3)=E(3)-3:GOSU8 
IF E(3)=8 THEN EI(3)=" 
858 IF A(4)>2 THEN A(3)=A(3)+I:A$(3 
)=J$:A(5)=A(5)+I:A$(5)=J$:B(4}=B(4) 

+I:8S(4)=J:A(4)=A(4)-3:GOSUB 1858: 
IF A(4)=B THEN A$(4)=" 
868 IF B(4)>3 THEN A(4)=A(4)+I:A$(4 
)=J$:B(3)=B(3)÷I:B$(3)=J$:B(5)=B(5) 
I:(5)=J:C(4)=C(4)+I:CS(4)=J:B( 
4)=B(4)-4:GOSUB 1858:IF 8(4)=8 THEN 
85(4)=" 
87 IF C(4))3 THEN 8(4)=8(4)+I:(4 
)=J$:C(3)=C(3)I:C$(3)=J$:C(5)=C(5) 
4)=C(4)-4:GOSUB 1858:1F C(4)=8 THEN 
C$(4)=" 
888 IF D(4))3 THEN C(4)=C(4)IC$(4 
)=J$:D(3)=D(3)+I:D$(3)=J$:D(5)=D(5) 
+]:D(5)=J$:E(4)=E(4)I:E$(4)=J:D( 
4)=D(4)-4:GOSUB I@5#:IF D(4)=@ THEN 
D(4)=" 
89 IF E(4))2 THEN D(4)=D(4)+I:D$(4 
)=J:E(3)=E(3)+I:E$(3)=J:E(5)=E(5) 
+I:E$(5)=J:E(4)=E(4)-3:GOSUB 185: 

IF E(4)=8 THEN E$(4)=" 
988 IF A(5)>I THEN A(4)=A(4)+I:A$(4 
)=J$:B(5)=B(5)+I:B$(5)=J$:A(5)=A(5) 
-2:GOSUB I#5@:IF A(5)=B THEN A$(5)= 
|| 
918 IF B(5))2 THEN A(5)(5)+I:A$(5 
)=J$:B(4)=B(4)+I:B$(4)=J$:C(5)=C(5) 
+:C$(5)=J:B(5)=B(5)-3:GOSUB 
IF B(5)=8 THEN B(5)=" 
928 IF C(5))2 THEN B(5)=B(5)+I:B$(5 
)=J$:C(4)=C(4)+I:C$(4)=J$:D(5)=D(5) 
I:D(5)=J$:C(5)=C(5)-3:GOSUB 
IF C(5)=@ THEN C(5)=" 

30 COHOY ANI$I'RAD 



938 IF D(5)>2 THEN C(5)=C(5)+I:C$(5 
)--J$.'D(4)=D(4)+I :O$(4)-'J$:E(5)=E(5) 
+I :E$(5)=J$:O(5)=D(5)-3:GOSUB 1858, 
IF D(5}=B THEN 
948 IF E(5)>1 THEN D(5)--D(5)+I :D$(5 
}=J$:E(4)=E(4)+I :E$(4}=J$.'E(5)=E(5) 
-2:GOSUB 1858:]F E(5)=8 THEN E$(5)= 
|| 
958 ' 
968 REM ****** CPARCION DE (BI) 
978 ' 
988 ]F BI=I THEN BI=8:GOTO 788 ELSE 
RETUIi 
998 ' 
1888 RE# *** CQTADORES DE FICHAS 
1818 ' 
1828 8LA=BF+BD:LOCA,[E#3,9,3 :PR]#3 
,BD;' ':LOCATE#3,9,4:PRINT#3,BF;" ' 
:LOCATE#3,9,5 :PRINT#3,BLA;' '; 
1838 NEG--NF+ND:LOCATEI4,9,3 :PRINT#4 
,NO;' ' :LOCATE#4,9,4 :PRINT#4,NF ;' 
:LOCA,[E#4,9,5:PRINT#4,NEG;' '; :RETU 
1848 ' 
1858 REM ,+**w IMPRIMIR FICHAS 
1868 ' 
1878 N2=2:N3=I :N4=5:BI=I 
1888 C¥=N2:FOR IXN3 ,[0 N4:CX=2:IF A 
$(N)='AflARILLAS' THEN PEN#1,1 ELSE 
PEN#1,3 
1898 IF AS(N)<>" THEI' GOSU8 1488 E 
LSE 1128 
1188 IF A(N)=I .[H LOCATE#I,C×+I,C 
Y+I:PRINT#I,CHR(258); ELSE IF A(N) 
--2 THEN LOCATE#1 ,CX,C¥:PRI'T#1 ,CHR$ 
(258); :LOCATE#I CX+2,CY+2 :PR]P{T#] ,C 
HR$(258);ELSE IF A(N)=3 THEN LOCATE 
#I ,CX,C¥:PRIi'(T#1 ,CHR(258);' ';CHRS 
(258) ; :LOCATE#1 ,CX+I ,C'(+2 :PRINT#I C 
HR(258) ; 
I18 IF A(N)=4 T.H LOCATE#1,CX,C¥: 
PRINT#] ,CHR(25B);' ';CHF(258);:L0 
CATEI%I ,CX,C¥+2 :PRINTI%I ,CHR$(258) ;' 
' ;CHR$(258) ; 
1128 CK=CX+4:IF 8$(N)<)" -[HEN GOSU 
8 1488 ELSE 1178 
1138 IF B$(N)='ARILLAS'THEN PEN#1 
,I ELSE PEN#I,3 
1148 IF B(N)=I THEN LOCATE#],CX+I,C 
¥+I :PRINT#1 ,CHR$(258) ;ELSE IF B(N}= 
2 THE LOCA'[E#1 ,CX,C¥:PRINT#1 ,CH( 
258) ; :LOCA'[E#1 ,CX+2,C¥2:PRINT#] ,CH 
R$(258); ELSE IF 8(N)=3 THEN LOCATE 

#I ,CX,CY:PRINT#I ,CHR(258);' ';CHR$ 
(258) ; : LOCA.[E#1 ,CX+I ,CY+ 2 :PRINT#1 ,C 
HR$(258) ; 
1158 IF B(N)=4 THEN LOCATE#1,CX,C¥: 
PRIN.[#1 ,CHR(258);' ' ;CHR$(258) ;:LO 
CATE#1 ,CX,C¥+2 :PRINT#1 ,CHR$(258) ;' 
' ; CHR$(258) ; 
1168 IF B(N)=5 -[HEN LOCATE#1,CX,C¥: 
PRIhFT#1 ,CHR$(258} ;' ';CHR(258};:LO 
CA,[E# I ,CX+I ,CY+I :PRINT#1 ,CHR$(258) ; 
: LOCATE#1 ,CX,CY+ 2 :PRI#1 ,CHRS(258) 
;' ' ;CHR$(258) 
1178 CX=CX+4:IF C$(N)<}" -[HEN GOSU 
B 1488 ELSE 1228 
1188 IF C$(N)=''4ARILLAS'-[HEN PEN#1 
,I ELSE PEN#1,3 
1198 IF C(N)--I THEN LOCATEII,CX+I,C 
¥+I :PRINT#1,CHR$(258); ELSE IF C(N) 
=2 -[HEN LOCATE#1 ,CX,CY:PRINT#1 ,CHR$ 
(258} ; : LOCATE#1 ,CX+2,C¥+2 :PRINT#1 ,C 
HR(25B) 
1288 IF C(N}=3 THEN LOCATE#1,CX,C¥: 
PRIhF[#1 ,CHR$(258) ;" ";CHR(258) ;:LO 
CATE#I ,CX+I ,CY+2 :PRINT#1 ,CHRS(258) ; 
ELSE IF C(N)=4 "[HEN LOCA,[E|I,CX,CY: 
PRINT#I ,CHR$(258);' ';CHR$(258);:LO 
CATE#1 ,CX,CY+ 2 :PRINT# I ,CHR(258) ; ' 
";CHR$(258) ; 
1218 IF C(N)=5 -[HEN LOCA,[E#1,CX,CY: 
PRINT#1 ,CHR(258);" ";CHR$(258):LOC 
ATE#1 ,CX+I ,CY+I :PRINT#I ,CHR$(258) ; : 
LOCA'[E#I ,CX,CY+2 :PRINT#1 ,CHR$(258) ; 
" ";CHR$(258) ; 
1228 CX=CX+4:IF DS(N)<)'" "[HEN GOSU 
B 1488 ELSE 1270 
1238 IF D$(N)--'bARILLAS'THE PEN#I 
,I ELSE PEN#1,3 
1248 IF D(N)=I THEN LOCATE#1,CX+I,C 
Y+1 :PRINT#1 ,CHR(258); ELSE IF 
=2 THEN LOCATE#1 ,CX,CY:PRINT#1 ,CHR 
(258) ; : LOCATE#1, CX+2,CY+2: PRINT#I ,C 
HR$(258); 
1258 IF D(N)=3 THEN LOCA,[E#],CX,CY: 
PRINT#I ,CHR$(258) ;" • ;CHR$(258) ;:LO 
CA,[E#1 ,CX+I ,CY+ 2 :PRINT#1 ,CHR$(258) ; 
ELSE IF D(N)=4 -[HEN LOCATE#1,CX,C¥ 
:PRINT#I ,CHR$(258);" ";CHR(258);:L 
OCA,[E#1, CX,C¥+2 :PRINT#1, CHRS(258) ;' 
' ;CHR$(258) ; 
1268 IF D(N}=5 -[HEN LOCATE#1,CX,C¥: 
PRINTSI ,CHR$(258);" ';CHR(258) ;:LO 
CATE#1 ,CX+I ,CY+I : PRIN[#! ,CHR$(258) ; 
: LOCATE#1, C×,C¥+ 2: PRINT#! ,CHR(25B) 
;' ' ;CHR$(258) ; 
1278 CX--CX44:IF E$(N)<>" THEN GOSU 
B 1488 ELSE 1328 

1288 IF E$(N)='i4AR]LLAS' THEN PEN# 
1,1 ELSE PEN#I,3 
1298 IF E(N)=I THEN LOCA,[EII,CX+I,C 
¥+I:PR]NT#1 ,CHR(258); ELSE IF 
--2 -[HEN LOCATE#1 ,CX,C¥:PRINT#] ,CHR$ 
(258) ; :LOCA,[E#I ,CX+2,C¥+2'.PRINT#1 ,C 
1388 IF E(N)=3 THEN LOCATE#1,CX,C¥: 
PRINT#1 ,CHR$(258);' ';CHR$(258);:LO 
CA,[E#I ,CX+I ,CY+2: PRINT#I ,CHR(258) ; 
ELSE IF E(N)=4 THEN LOCATE#] ,CX,C¥ 
:PRINT#1 ,CHR$(258);" ';CHR$(258);:L 
OCATE#1 ,CX,CY2 :PRIPT# I ,CHR$(258);' 
";CHR$(258) ; 
1318 IF E(N)=5 "[HEN LOCA,[E#I,CXCY: 
PRINT#1 ,CHR$(258);' ' ;CHR$(258) ; :LO 
CATE#1 ,CX+I ,CY+I :PRINT#1 ,CHR$(258) ; 
:LOCATE#I ,CX,CY+2 :PRINT#1 ,CHR(258) 
;' • ;CHR$(258); 
1328 C¥=CY+4:NEXO " N 
1338 ' 
1348 RE# ***** CUENTA FICHAS DESPUE 
S DE CADA dUGADA 
1358 ' 
1360 BD=8:ND=8:FOR N=I TO 5 
1378 IF AS(N)<) •' THEN IF 
GRAS' THEN N0=ND+A(N) ELSE BD=BD+A( 
N) 
1388 IF 8(N)<> •' THEN IF B$(N)='NE 
GRAS' -[HEN ND=IDB(N) ELSE 80=80+8( 
N) 
1398 IF C$(N)<}" THEN IF C$(N)='NE 
GRAS' -[HEN NI)=NO+C(N) ELSE 80=8D+C( 
N) 
1488 IF D$(N)(>" THEN IF 
GRAS' -[HEN N0=ND+D(N) ELSE 8D=BD+D( 
N} 
1418 IF E$(N)<>" THEN IF E$(N)='NE 
GRAS' .[HEN N0=NO+E(N) ELSE B0=BD+E( 
N) 
1428 NEXT N 
1438 GOSUB 1888 
1448 81--81+I:]F BI)I THEN IF N0=8 0 
R BD=8 THEN LOCATE#5,LI,3:PRINT#5,J 
$:FOR n=l TO 2588:NEXT N:GO-[O 1528 
1450 IF d=°NEGRAS•'THEN LI=4 ELSE L 
I--3 
1468 RETU 
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1478 ' 
1488 REM ******** 80RPAR FICHAS *** 
1498 ' 
1588 FOR M::8 TO 2:LOCATE#1,CX,C¥+M: 
PRINT#1,' ';:NEXT M:RETU 
1518 ' 

43);' 
43);' 
43); ° 

1528 REM ***** IMPRIME F.qADOR 
1538 ' 
1548 INK 1,3:INK 2,9:INK 8,13:PAPER 
3:CLS:BORDER 8 
1558 A=6:PRINT:FOR N=I TO 5 
1568 PEN 2:PRINT IAB(5};SIRINGS(A,] 
';:PEN I:PRINT SIRING$(A-I,I 
';:PEN 8:PRINT STRINGS(A-2,1 
';:P 2:PRINT STRINGS(A-3,1 
';:PEN I:PRIN-T STR]NG$(A-4,1 
';:PE 8:PRINT 

157B NEXT N 
1588 PLOT 176,272:DRAGIR 288,8:DRAWR 
8,-144:DPAR -2BS,@:DRAR 8,144:DR 
mR 8,-8:DRAWR 272,B:DR 
R -272,B:DR @,I28:PLOT 464,27 
2:DR -8,-8:PLOT 464 ,128 :DR -8 
,8:PLOT 176,128:DR 
1598 LOCALE 6,11:P B'.PRI'G A N 
A N':LOTE 1813:PRI'L A S':IF 
J'NEGS' TH LOIE 15,15:PRI 
'N E G R A S' ELSE LOE 13,15:PRI 
'AMAR I LLAS' 
1688 LOTE 1,28:FOR I TO 2:P B 

:PRINT TAB(5};SRING$(A,143); ° ';: 
PEN I:PRINT STRINGS(A-I,143);' ";: 
P 2:PRINT STRINGS(A-2,143);' ';: 
PEN 8:PRINT STRINGS(A-3,143);' ';: 
PEN I:PRINT STRINGS(A-4,143);' ';: 
PEN 2:PRINT STRING$(A-5,143):NEXT:P 
RINT:PRINT 

1618 PEN 8:PRINT TAB(7);'QUIERES JU 
GAR DE MUEVO (S) '; 
1628 X$=INKEY$:X$=UPPER$(X$):IF X= 
'S' TH R ELSE IF X$<)'N' TH I 
628 
1638 CALL 8 
1648 ' 
1658 R ******* INSIRUCCIONES *** 
1668 ' 
1678 MODE I:WIMDOW#B,I,48,]8,25:WIN 
DOW#7,]I,3],2,7:P#7,3:PAPER#7,2:C 
LS#7:LOCATE#7,4,2:PRINT#7,'* EXPLO 
SION **' 
1688 LOCATE#7,5,5:PRINT#7,'INSTRUCC 
IONES' 
1698 PRINT ' ?RATDO DE ELABORA 
R ON MODEL0 QUE,REPRODUJEPA Y AY 
UDARA A EXPLICAR ELPROCESO DE LA 
FIS]ON NUCLEAR, SE INVENTODE MANER 
A CASUAL • JUEGO: EXPLOSION 
1788 PRINT:PRINT:PRINT ' AL INIC 
I0, EL TABLERO ESTA VACIO Y,CADA J 
UCDOR EN SU IUO COLOCA UMAF 
ICHA  UhiA CASILLA QUE ESTE LIB 
RE OQUE CONTGA FICHAS PROPIAS.' 

1718 GOSUB 1848 
1728 PRINT ' EXPLICAREMOS DOS CO 
NCEPTOS BASICOS:CAPACIDAD Y EXPLOS 
]ON,TODAS LAS CASILLASIIENEN LFIA CA 
PACIDA0 MAXIMA QUE ES IGUALAL NUHER 
0 DE CASILLAS ADYACENTES.' 
1738 PRINT;PRINT:PRINT ' S] UN J 
UGAOOR COLOCA L FICHA EN ONA CA 
SILLA Y ESTA ,LCA SU CAPACIDAD M 
AXI ENTONCES EXPL0"[ARA." 
1748 GOSUB 1848 
i758 PRINT' LA EXPLOS](}'4 SE EdEC 
UTARA COLOCAIDOCADA I/HA DE LAS 
FICHAS DE LA CASILLAEXPL01ADA EN 
CADA UNA DE LAB CASiLLASADYACENTE 
S. m 
768 PRINT:PR]NT:PR]NI ' SI ALGU 
M0 DE LOS CUADROS ADYACENTES ESTA 
0CUPAD0 P0R F]CS ENEMIGAS, ESIAS 
SON IEDIAIENTE CAPTURADAS,' 
1778 GOSU8 1848 
1788 PRINT ' EL TUO DEL JUD 
OR "[EI CLWOONO Y CASILLAS OU 
E DESt4 SER PLOTAS' 
1798 PRINT:PRINT:PRINT' PUEDE OC 
URRIR QUE CO RESULTADO DELi R 
CC][I EN CADEhI, L CASILLA PASEDE 
CAPACID I CUIDO LA PLOSION IE 
• NLUR SE EJECUTA EN LA FO'i H 
SITUALfl  FIC 0 FICHS SOBR,rf 
ES SE DEEN DIC CASILCA.' 
1888 GOSUB 1848 
1818 PRINT' EL 08JETIVO ES DEJAR 
SIN FICS • ELTASLERO AL AER 
RIO. EL QUE LO LOGRE8 DO L 
A PARTLY.' 
1828 PRINT:PRINT:PRINT' COVIENE 
BERPOR ULIIMO QUE CUiqDOSE 
EN VARIAS CASILLAS PARA EXPLOIAPA 
LA VEZ, NO IMPORTA EN QUE ORD 
SEEFECTUEN LAS EXPLOSIONES, EL R 
ESULIADOES EL M]SMO.' 
1838 RETUR 
1848 CALL &BBB3:PRINT:PRINT:PRINT:P 
RINT ' PULSE LiA "[ECLA PAPA CONll 
NUAR' 
1858 CALL &BBIB:CLSWS:REI'URH ELSE I 
858 
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A parlir del dia ! . . en locln ...". 
Batman, Bomb Jack Commando... 
todos tus hroes preferidos juntos en este nOmero, 
para divertirte a tope. 

AFII.N°15 

soomo,.  

$61o • ,; • adictos 

' BATMAN  - 
UN SUPERHEROE 
DE PELICULA 
L 
I 

LIEN HIGHWAY IINIGHT 
SPINDIZZY  SH ' DE 
FR ' NKIE GOES y adems 

TO HOLLYWOOD 
BOMB 
JACK 
COMM , NDO 

Gunfrigl#...-  

y  
Starqua, 

l, Jtensilios y Cachivaches 

UNA AUTENTICA 
©RQUESTA SINFONICA 

HISTORIA 
oE so /l'r 

en elctilb 
,.. e.o 



Con el objeto de fomentar las rela- 
clones entre los usuarios de AMSTRAD, 
MERCADO COMUN te ofrece sus pegi- 
nas para publicar los pequeos anuncios 
que relacionados con el ordenador y su 
mundo se aiusten al formato indicado a 
continuaci6n. 
En MERCADO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
yen general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 
Fnvlanos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
IABSTENERSE PIRATAS! 

Servicio Tecnico 
Para AMSTRAD 
en Galicia, 
Le6n 
y Asturias. 
CWMagdalena, 213 
El Ferrol 
Tel.: (981) 35 84 32 

• • • • • • • • • • • • • • • 
Desear;a contactar con usuarios 
del Amstrad CPC 464, para el 
intercambio de ideas, informaci6n 
y juegos. AI ser posible en 
Valencia. Telf. 323 30 41. 
Preguntar por Mariano. 
• • • • • • • • • • • • • • • 

Vendo CPC 464 con monitor en 
color y unidad de disco DD1 todo 
en perfectas condiciones, ademes 
joystick quickshot IV y cable para 
impresora, disquetes con CPM2.2, 
Logo, Pascal 80, Fortran 80, M- 
Basic (interprete y copilador), 
Micropen, Amsfile, Amsword, 
Randon y Randon-F, etc. (con sus 
manuales). Mes de cien juegos 
(Copiones, Cyrus, Tascopy, Fist, 
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etc.). Todo por 100.000 pesetas. 
Interesados Ilamar al tel. 
468 10 88 por la noche y 
preguntar por Manuel. Madrid. 

Vendo dos programas originales 
en disco, (Sorcery y 3D Boxing) 
compatible Amstracl CPC 
464/664/6128 por 2.200 pesetas 
cada uno 6 4.000 los dos. 
Interesados escribir a: Ernesto 
Garcia Ortega. Chalet la 
Rosaleda n. ° 20 Siggenza 
(Guadalajara). 

Vendo impresora IBM Graphics 
Printer, bidireccional de 80 c.p.c. 
Compatible Epson en graficos. 
Utilizable con cualquier salida 
Centronics (Amstrad, MSX, IBM, 
etc.). De 40 a 132 columnas, con 
48 tipos distintos de impresi6n. 
Est6 nueva, tiene s61o cuatro 
meses de uso. Garantia. Precio 
nueva 91.000. Vendo por 65.000 
discutibles, y regalo 500 hojas de 
papel continuo. Interesados, 
Ilamar a Claudio o Diego, al (91) 
742 28 37. 

• • • • • • • • • • • • • • • 

Vendo Amstrad CPC 464 con 
monitor de color, en perfecto 
estado, libros y manuales del 
mismo, incluyo algunos programas 
originales, todo por el precio de 
72.000 pesetas. Interesados 
escribir a Jose Miguel Herrero, C/ 
C. Matas n. ° 1, Fuentes de Ebro 
(Zaragoza), o Ilamar al tel. (976) 
1601 77. 

DesearJa contactar con 
propietarios de Amstrad CPC 
464/472 que residan en Alicante 
(ciudad) para intercambio de 
iuegos. Llamar al 24 11 26, 
preguntar por Jose Javier. 

Vendo ordenador Atari 800 XL 
con datacorder, dos joysticks con 
mando a distancia y conexiones 
para perifericos. Todo a estrenar 
y con garantia. Adem6s regalo 
curso de iniciaci6n al Basic y dos 

juegos Atari. Precio a convenir. Mi 
nombre es Antonio. C/ Basilio Sala 
15-4. ° en San Juan de Alicante. 

Cambio monitor f6sforo verde 
GT 64 Amstrad y alimentador 
modular MP-2 (para Amstrad 646 
y 664), por monitor de color GTM 
640 Amstrad. Monitor y 
modulador s61o tienen 4 meses. 
Interesados Ilamar al tel. 
269 34 11. Preguntar por Javier 
Morera. Madrid. 

Vendoprogramas a 500 y 800 
pesetas cada uno. Entre ellos 
esten: 
3D Voice Chess, Raid!!!, Night 
Shade, 3D Grand Prix, Decathlon, 
Alien, Sorcery, Bead Head, Jet Set 
Willy, Knight Lore. 
Y muchos mes, interesados Ilamar 
al tel. (958) 60 14 81. 

Vendo juegos HOUSE OF 
USHER y DEFEND OR DIE, en 
cinta, completamente nuevos (sin 
estrenar) mes una revista de 
programaci6n para Amstrad, todo 
por 3.000 pts. Interesados Ilamar 
al Tel. 84 52 51 de Pontevedra de 
las 19,00 a las 22,00. Preguntar' 
por Moises. 
• • • • • • • • • • • • • • • 

Centro Comercial Guadalupe 
(tra. Canillas, 136-1. a planta 
Tel. 200 80 65 MADRID 

Centro Comercial El Bulevar 
La Moraleja 
Tel. 654 16 12 IVIDRID 

Tambin abierto domingos de 10 a 2 
Centro Comercial Ciudad Sto. Domingo 
Ctra. de Burgos, km 28. 
Tel.: (91) 622 12 89 
Algete (Madrid) (Central) 

Desearla hacer intercambios 
compras--ventas de toda clase de 
programas; tanto en disco como 
en cinta, dispongo de muchas 
novedades; quien est6 interesado 
escribir a Vicente Luengo, 19. 
Aligent (Valencia). O Ilamar al 
Tel. (96) 175 05 53, tendreis 
respuesta asegurada. 



NOENCONT ° , ,, 
UE LE HAGA E PAPEL. 

,'lles abatibles que permitel 
¢olocar el papel ba.jo la impresora. 

C6modo sNema de eaa frontal 
del papel. 

Admire diferentes anchos de papel, 
tanto continuo (de. 114 a 2,54 toni.) 
como hojas sueltas (102 a ?.41 ram.) 

/. 

• Especialmete recomendada para ordeadres 
AMSTt?AD serie (7F. 

 Collectable a cualquier ordeador con interface 
cetronics, 

 i'elocidad de inpresi6n de I O caracteres por 
seguMo. 

 Gtn riedad de 
alta calidad 

• 40, 66, 80y 132 caracreres pot columna. 
• Impresi6 de ©'fdcos punto a ptmto 
diferentes densidades. 
.96 cancteres AbCII y8 subjuegos 
internacionales, 

GP, UPO INDESCOHP 

ESPAA 

Avda clel MeOlerraneo 9 28007 Maclncl Telex 47660 Tels 433 45 48.433 48 76- 433 4 4 58- FAX. 433 24 50 Oelegaoon en Catalua C Taragona 110 Tel 32510 58 08015 Barcelona 



